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МЕСТМЕЕНВЕЕК, 1 AUGUSTUS 1982 
BESTE LEDEN, 


ER IS DE LAATSTE 5 MAANDEN HEEL WAT GEBEURD ROND НЕТ PRODUKT DAI. 
DAT DE TOEKOMST VOOR DE DAI-GEBRUIKERS ER ERG GUNSTIG UITZIET LEEST 
U IN HET BERICHT VAN DIRK OOGJEN : 


W. HERMANS 


VOOR VELEN WAS DE DATUM 5 MEI 1982 EEN DATUM OM NIET LICHT TE 
VERGETEN. HET WAS DE DAG DAT DE RECHTER OFFICIEEL BESLISTE DAT DAI 
TE BRUSSEL GESLOTEN MOEST WORDEN ЕМ DE STATUS ’FAILLIET’ KREEG. 
VANAF DIE DAG IS ER DAG EN NACHT GEWERKT AAN EEN OPLOSSING EN DIE 
IS NU GEVONDEN ! 

“PRODATA" BESLOOT DE AKTIVITEITEN VAN DAI VOORT TE ZETTEN EN 
STICHTTE HIERVOOR EEN NIEUWE FIRMA GENAAMD "INDATA NV". ` 

DEZE NIEUWE FIRMA ZAL ALLE PRODUKTEN VAN DAI GAAN PRODUCEREN EN 
VERKOPEN ZODAT WIJ WERKELIJK KUNNEN ZEGGEN DAT DE PRODUKTEN " TERUG 
OP DE MARKT’ ZIJN. EN HOE! DE FINANCIELE BASIS VAN DEZE NIEUWE 
FIRMA IS DERMATE GROOT, DAT PLANNEN VOOR VERBETERING VAN DE ALGEMENE 
STRUKTUUR VAN DE FIRMA EN PRODUKTEN NU EINDELIJK VERWEZENLIJKT 
KUNNEN WORDEN. DIT MEDE DOOR DEELNAME VAN ANDERE FINANCIELE GROEPEN, 
ZODAT "INDATA NV" NU ZEER KRACHTIG OP DE MARKT KAN KOMEN. 


ER IS EEN NIEUW MANAGEMENT, MET GOEDE EN TALENTVOLLE MENSEN, DIE 

ABSOLUUT VAN PLAN ZIJN VAN DEZE MAATSCHAPPIJ EEN SUCCES TE MAKEN. 
HARDWAREMATIG ZIJN ER PLANNEN TOT VERBETERING EN UITBREIDING, EN 

OP SOFTWAREGEBIED WILLEN WIJ OOK VOORUIT, ZODAT ER ZEKER BINNEN NIET 

AL TE LANGE ТІЛІ) POSITIEVE ZAKEN TE VERWACHTEN ZIJN. WAT DIT PRECIES 
INHOUDT, KUNNEN WIJ NOG NIET VERKLAPPEN, MAAR DE GEBRUIKERS KRIJGEN BESLIST 
DE GELEGENHEID HUN MACHINE UIT TE GAAN BREIDEN. 


OOK DE VROEGERE LEVERINGSPROBLEMEN ZULLEN TOT HET VERLEDEN BEHOREN. 
VANZELFSPREKEND ZULLEN WIJ OPNIEUW MOETEN OPBOUWEN, EN ZO’N BEGIN IS 
ALTIJD MOEILIJK, MAAR DE BASIS IS GEZOND, EN DE WILSKRACHT GROOT. 

WIJ ZIEN BESLIST UIT NAAR EEN GOEDE TOEKOMST VOOR DE DAI PRODUKTEN EN 
HOUDEN U OP DE HOOGTE VAN ONZE VORDERINGEN. HIERBIJ ENKELE GEGEVENS 
BETREFFENDE "INDATA NV": 


MAY 6, 1982 WAS THE DAY THAT DAI WAS BANKRUPT. FROM THAT DAY 

WE WORKED VERY HARD TO GET THE COMPANY OPEN AGAIN, AND THAT WAS 
NOT EASY! "PRODATA", A COMPANY IN BRUSSELS, DECIDED TO BUY ALL 
THE RIGHTS OF DAI, AND SINCE THEN WE COULD PRODUCE AND SELL AGAIN. 
AND HOW! THE FINANCIAL BASE OF THIS NEW COMPANY IS STABLE AND HIGH, 
SO THAT OLD PROBLEMS LIKE PRODUCTION DELAYS ARE SOLVED. 

THE COMPANY GOT THE NAME “INDATA NV", WITH А WHOLE NEW MANAGEMENT 
WITH SPIRIT AND WILL TO LET THIS COMPANY GROW AS NEVER BEFORE. 
THIS MEANS THAT WE CAN LOOK FORWARD TO NEW APPLICATIONS IN SOFT 
AND HARDWARE IN A SHORT TIME. 

OF COURSE WE NEED TO START UP AGAIN, BUT THE FUTURE LOOKS GREAT. 


WE WILL KEEP YOU INFORMED ABOUT OUR PROGRESS. HEREUNDER PLEASE FIND THE 
COMPANY INFORMATION. 


INDATA NV, RUE DE LA FUSEE 50 (RAKETSTRAAT 60), 1130 BRUSSEL 
TELEFOON (31)-2-2169720. 


DIRK OOGJEN, SALES & MARKETING INDATA NV 
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Variable cursor + Rectangles 


NEW SOFTWARE IN OUR LIBRARY 


/ 


£ 
d 


\ 


IN DIESEM HEFT 


D. Oog jen 

F.Drui jff 

T.Bonduelle 

P.Dal 

J. Boerrigter 
J.V. D. Hoeven 

J.Delvoye 

K.De Bont 

F.De Raedt & H.Bellekens 


E.Couplet 


J.Boerrigter 


J. Schepens 
6.Gruiters 


H.Moeys 
P.Dal 


J.Menier 
J.Boerrigter 


F.Regtien 
F.Drui jff 


PRICE DCR 


900 Bfr 
900 Bfr 
1300 Bfr 


TITLE PRICE AUDIO 
- GAMES COLLECTION 8 750 Bfr 
— GAMES COLLECTION 9 750 Bfr 
— TOOLKIT 3 (2 TAPES) 1000 Bfr 


New 4K Character generator for DAIpc,Contains all 
DAI characters (some of them enhanced),greec alfabet, 
german and french characters (accentuees) and beautiful 


graphic symbols 


(card symbols,games symbols ....) 
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2222252222 PROGRAMMEER ~ TECHNIEKEN е се ге е d 
Ik ben van plan in dit blad een rubriek te gaan verzorgen over technieken en 
problemen bij het programmeren. Vaak zal het algemeen zijn maar regelmatig spe- 
ciaal toegespitst op de DAI. Anders gezegd: de besproken methodes gelden altijd 
voor de DAI maar vaak ook voor vele/alle andere computers. 

De onderwerpen die aan bod komen zullen bepaald worden aan de hand van uw sug- 
gesties en/of zwakke gedeeltes van ingestuurde programma’s. Ik denk in dit ver- 
band bv aan het snel tekenen van cirkels, voorkomen van kleurconflicten, werken 
met arrays, snelheid en leesbaarheid van programma e.d. 


Voor deze eerste keer wilde ik als onderwerp het verkrijgen van een lijst met 
bepaalde maar wel willekeurig verdeelde getallen nemen. Het idee voor dit onder- 
werp kwam bij mij op door het programma 'BINGO' van T. Groeneveld (blz 136 N10) 
Ik hoop dat mijnheer Groeneveld nu niet na dit artikel zal denken dat iedereen 
hem een slechte programmeur zal vinden, In ieder geval vind ik dat zelf niet 

en wel omdat hij zelf een oplossing heeft gevonden. Inderdaad niet de beste 

maar ik heb heel wat liever een domme,onhandige,lange,omslachtige,onduidelijke 
methode (Nee mijnheer Groeneveld dit slaat niet allemaal op U) dan een foute. 

En zoals ik de vorige keer al schreef krijgen wij nog regelmatig programma's 
binnen die domweg fout zijn; of haast nog erger alleen overgetikt. 


Om het probleem под eens te herhalen: In het programma hebben we een array no- 
dig waar de getallen 1 t/m 75 in staan, deze moeten echter wel in een wille- 
keurige volgorde staan. Als het programma trouwens niet werkt bij U, het vol- 
gende recept: intikken wat er staat maar dan wel na IMPINT. 

Dat heeft U ook niet gedaan mijnheer Groeneveld (zie de .9° = maar). 

Het originele programma: 

10 CLEAR 1000:DIM 6(76.0) 


25 R=RND (75.0) *1.0 

26 ENVELOPE 1 15,9;0:SOUND 1 1 15 0 FREQ(RND(269.0)+31.0) 
27 NOISE 4 15 

50 FOR A=1.0 ТО 75.0:IF G(ñ)<>R THEN NEXT A 

40 IF А<76.0 AND G(A)=R THEN 25 

30 ТЕ G(I)=0.0 THEN G(I)=R 

83 I=I+1.Q:IF I-76.0 THEN 100 

70 GOTO 25 


We gaan even analyseren: 

regel 25 we kiezen een geschikt getal 

regel 28 en 27 we veraangenamen de wachttijd 

regel 20 we controleren of we dit getal niet al eerder hadden gekozen 

regel 40 als dit wel al eerder gekozen is kiezen we een ander getal 

regel 50 als er nog niets ingevuld is zetten we ons getal in de tabel 

regel 65 volgende keer getal op volgende plaats zetten en ophouden als we ze 
allemaal gehad hebben 

volgende getal als we nog niet klaar zijn 


regel 76 


Zoals U zelf kunt vaststellen werkt dit programmadeel correct maar wel traag. 
Op mijn machine (met matchchip) kwam ik tot een gemiddelde van 72 seconden. 

Wat kunnen we hier nu aan doen? Eerst het programma licht veranderen. 

Ik begon met het verwijderen van de .O's , liet de NOISE en ENVELOPE uit de 
loop en verving de ВМО bij de sound door АЖА wat veel sneller is. 

Ik boekte inderdaad enige tijdwinst maar niet groots gemiddelde пи 66 seconden. 
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10 CLEAR 1000:DIM G(76.0) 
16 ENVELOPE 1 15,9;0 

17 NOISE 1 15 

25 R=RND(75) +1 

28 SOUND 1 1 15 O FREG(RK4+31) 

Z0 FOR А=1 ТО 75:16 G(A)<>R THEN NEXT А 
40 IF A476 AND G(A)=R THEN 25 

50 ЛЕ G(I)=0 THEN GD =R 

65 — I=I+1:IF 1-76 THEN 100 

70 GOTO 25 


Weer maar eens sleutelen. Als het kan meerdere regels tot een samen voegen. 

De test of A76 is leek mij overbodig dus verwijderd. De eindtest bezorgt BASIC 
een slechte naam (spagetti-code) sprongconditie geinverteerd en tevens GOTO- 
adres. Gemiddelde tijd lag nu ор 58 seconden. 


10 CLEAR 1000:DIM G(76) 

15 ENVELOPE 1 15,9; 0:М01ІЗЕ 1 15 

25 R=RND (75) +1: SOUND 4 1 15 О FREQ(Rk4+31) 
50 FOR А=1 TO 78:ІҒ G(A)<>R THEN NEXT А 

40 IF G(A) ER. THEN 25: IF G(I)=0 THEN GED =R 
аз I=I+1:IF 1576 GOTO 25 


Nu alleen voor de test het geluid verwijderd hiermee kwam gemiddelde op zo’n 

48 seconden.En ik vind ook dat je beter 58 seconden met geluid kunt wachten dan 
48 seconden zonder. Later zag ik nog dat de loop maar tot I hoeft te gaan. 

Ше zitten echter nog steeds met een veel te grote wachttijd dus gaan we iets 
anders verzinen. 


Het oorspronkelijke programma werkt daardoor zo traag omdat een willekeurig 
getal gekozen wordt en hierna gecontroleerd cf dit er al is. Het is beter de ge- 
tallen die we willen krijgen eerst te nemen en die dan op willekeurige plaatsen 
in de array neer te zetten. Ik heb deze methode niet uitgewerkt omdat we dan 
ons probleem omdraaien: heb ik in de eerste methode moeilijkheden een geschikt 
getal te vinden nu krijg ik het probleem een geschikte plaats te vinden. 

De nieuwe methode zal wel iets sneller zijn omdat de controle simpeler is 
(alleen kijken of plaats leeg is ipv alle getallen controleren). 

Maar bedenk ik nu als ik de array nu eens veel groter maak bv 258 dan zal ik 
gemakkelijk een leeg plaatsje kunnen vinden. Nadat ik dan in een hulparray de 
getallen 1 t/m 75 heb geplaatst moet ik ze alleen nog maar netjes achter elkaar 
te zetten in array 60). Voor liefhebbers we kunnen ook in de array zelf aan- 
schuiven natuurlijk. De verkregen tijdwinst is enorm : minder dan 3.4 seconden. 
Inderdaad drie vier tiende en niet vierendertig. 


10 CLEAR 10000: DIM G(75),5(255) 

20 FOR I=1 ТО 75 

50 RERND(254): IF 6(Б)<>0 GOTO 50:68 (К)<1:МЕХТ 

40 FOR І=0 TO 255: IF 8(1)420 THEN 2-441:6 ОЈ) 5 (1) 
50 NEXT 
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Maar we zijn nog niet tevreden. De methode is best voor een array met 75 elemen- 
ten maar minder geschikt als we grotere hoeveelheden krijgen omdat we dan ook 
moeilijk een leeg plaatsje kunnen vinden. En soms belangrijk het kost heel wat 
extra geheugenruimte, | 

Er is dan als we niet erg vinden dat de lijst niet echt random is de volgende 
methode: we plaatsen de getallen 1 t/m 75 willekeurig іп de array van 75 plaat- 
sen. Is de plaats al bezet kiezen we niet random een nieuwe plaats maar nemen 
gewoon de eerste lege plaats vanaf onze keuze.Deze mogelijkheid heb ik hier 

niet uitgewerkt omdat het niet random із. 


Nu de snelste methode die ook под eens erg kort is. 


10 CLEAR 10000:DIM G(75) 
20 FOR Те ТО 75:5(1)с1:МЕХТ 
30 FOR Ізі TO 75:G6(0)}=G6(1) :R=RND(75)+1:G(1)=G(R):G(R)=G(0) : NEXT 


We zetten de getallen 1 t/m 75 gewoon op volgorde in de array en verwisselen 
dan elk getal met een willekeurig ander element. We krijgen een keurige random 


lijst en erg snel: 2.42 seconden als we G(0) als parkeerplaats gebruiken en 
zelfs 2,56 seconden als we A nemen. 


Dit laatste komt omdat array variabelen voor de DAI moeilijker te vinden zijn. 


Weet iemand een nog kortere of snellere methode houd ik mij daarvoor aanbevo- 
len, ik zal er dan zeker op terugkomen. 


RECTIFICATIE !!! 

Neem mij gerust kwalijk. In DAInamic no 10 heb ik een steek laten vallen. 

In mijn artikel over de voordelen van integers heb ik boven in de tweede kolom 
U trachten te overtuigen. Op de beschreven manier lukt dat niet. Ik ben verge- 
ten er bij te zetten dat U na de reset en voor de tweede keer intikken van het 
programma nog IMP INT moet intikken. Dan zult U wel overtuigd worden, 

Nogmaals mijn welgemeende excuses. 


Frank H. Drui jff 


REM GRAFIK von ERNST JAECKLE, D-7218 Trossingen 

REM SCHNELLER GEMACHT Frank H. Drui jff 

REM 5,А UND B SIND FORMPARAMETER,SS.. STRICHDICHTE 

REM FUER DRUCKEN "SCREEN COPY PROGRAM" LADEN 

10 MODE 0: INPUT "Schrittweite als PI/S S=(3 ODER 4,6 usw.) "5S! :PRINT 
20 DIM C(3):2221:88!20.2: IF 8!220.0 THEN 55!=0.125 

30 C(1)=9;C(2)=14:C(3)=10:S!=PI/S!;A!=6.0:B!=-1.0 

49 COLORG O 9 14 10:MODE &:FOR L!=-3.0 TO 3.0 STEP 55! 

50 Z=Z+1:IF 7 MOD 5=0 THEN 275774: ТЕ 22-24 THEN 72-1 

60 CO=C(ZZ):FOR 1!=0.0 ТО PI+PI+S! STEP 5':Сб'єд'яВ':Н'єС'/ВІЖІ! 
70 Х'=С'ЖС09 (1!) -1 1 ЖВ'ЖС08 (Н!) Y! C! SSINCI! ) -L' KB! X8INGH!) 

80 X27167.5*20.88XX!:Y22127. 5*Y! K15. 0: IF I'20.0 THEN T=0 

90 IF Тед THEN XA=XZ: YA=YZ:T=1 

100 DRAW ХА, ҮА XZ,YZ CO:IF I'420.0 THEN XA=XZ:YA=YZ 

110 NEXT: NEXT 

120 INPUT "Drucken (J,N)":A$:PRINT 

130 IF A$<>"J" GOTO 10:MODE 6:COLORG O 15 14 10 

140 POKE #FF06,17:CALLM #300:POKE SFFO6,19:GOTO 10 


AUC FJ ке 
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1 REM ЖЖЖАХЖХЖҖЛЖХЖХЖХЖХҖХХҖЖХЖЖЖЖЖЖХЖХХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖХЖЖЖЖЖЖЖЖЖЖЖХЖ 

2 КЕМ XXX DAI TIME EX 

3 REM Xxx LEX? 

A КЕМ ЖЖЖ Programme concu et realise par: хх% 

5 REM ЖЖХ Thomas BONDUELLE. xxx 

7 REM ЖЖЖ Sur une idee originale de: xxx 

8 REM Xxx Olivier Сароп. жк 

9 REM ЖЖЖЖ EERE ERE REE EERE KARA ERAAN KEK KEK KEK X 

10 CLEAR 1000: MODE О: MODE 6:COLORG о Ó O O 

20 DIM ХР! (60.0), YF! (60.0),Х! (60.0),Ү! (60.0) 

30 T=0:@=1:K=10: XM!'=XMAX/2.0: YM! -YMAX/2.0 

40 EM!=P1/1800. 0: EH! СЕМ! /12.0:ST!=P1/30. O: PRS=8: PRM=6: PRH=6 

50 RS=YMAX 7 3: RM-R&-5: RH-RM— 30: R1-RS42:RZ-R1-«9: RZ=R2+5 

53 КЕМ 

54 КЕМ 

99 КЕМ Trace de 1а montre: 

56 REM 

57 REM 

60 L=R3:KL=23:GOSUB 600:L=R3-1:KL=21:GOSUB 600:KL-22 

70 FOR A!=0.0 ТО 2.ОЖРІ STEP ST!:S'=SIN(A!):C'=COS(A!) 

72 ХР! CIJ=XM!-PRSES! 2 YP! CI) УМ! -РВОЖС! ЕХ! CIDZXM!*RSXS!:Y! (1) -YM! -*RSXC'! 

74 ТЕ I MOD 5.0=0.0 THEN DRAW XM'-«R1XS',YM'!*RiItC! XM!4R24S', YM!'+R24C!' KL: GOTO 
78 

76 DOT XM'-R2X5',YM'-R2ZXC' KL 

78 I=I+1:NEXT 

во KL=22: XM3'!'=XM!+R3+10.0:GOSUR 700: GOSUB 800 

90 XM2!'=XM!—-2.0%R3-1.0:COLORG О K K O:KL=23 


100 FOR I-O ТО 94: X!=50OR(RSERS-IKID 

102 DRAW O,YM!+I XM2!+X!,YM!+I KL 

104 DRAW О,ҮМ!-І XM2!+X!,YM!-I KL:NEXT:1=0 
110 GOSUB 650: KL=22 


111 REM 
112 REM Ouverture de la montre: 
113 REM 
114 REM 


115 IF GETC<>0 THEN 115 

116 IF БЕТС-О THEN 116 

117 GOSUB 240 

120 =R3—-1:KL=16:GOSUB 600: KL=22: XM3!=XM!+R3+10.0:GOSUB 700 

130 KL=23:GOSUB 800 

140 FOR А!=0.0 TO Z.OXPI STEP ST! 

142 IF I MOD 5.0=0.0 THEN DRAW XM!RIESIN(A!) , YM!+R1i*COS(A!') XM!+R28SIN(A') „УМ 
'+R2*4COS (A!) Кі: БОТО 146 

144 DOT XM!+R24SIN(A!),YM'+RZXCOS (A!) KL 

146 I=I+1:NEXT 


147 REM 
148 REM Demarrage de la montre: 
149 REM 


150 IF GETC<>0 THEN 150 

160 ТЕ GETC<>18 THEN 160 

170 FILL XM3',YM'—10 XM3!+20,YM'+10 0 
180 XM3!=XM'+R3:KL=23:GO0SUB 700 


195 REM 
196 REM 
197 REM Boucle principale: 
198 REM 
199 REM 


200 IF GETC=19.0 THEN 400 
210 IS=(IS+1) MOD 60: AM!=AM!+EM!:AH!=AH!+EH! 
220 GOSUB 230:G0TO 200 
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225 REM 
226 REM 
227 REM SBR: Trace des nouvelles aiguilles 
228 КЕМ 4 et effacage des апсіеппес: 
229 REM 
250 KL=17+2%0 
240 XO! XP! CIS) : YO! Z YP! (15): X! ZX! (15) :Ү!=ү! (IS) 
250 С!-СОв (AM!) :S'!=SIN CAM!) : X60! XM! CPRMES ! : Y6O! СУМ! CPRMIEC ! : Y6 ! SYM! ЗВМЕС : X6! = 
“A ass 
260 =COS (AH!):S'=SIN(AH!): : XHO! =XM ! —PRH*S ! z YHO! - YM! CPRHXC ! z YH! -YM! +RH£Ü : 2 XH ! = 
SE 
270 DRAW ХО!,ҮО! X',Y' KL 
280 DRAW X60!+1,Y60! X6!,Yé! KL: DRAW Х60!-1,Ү60! X6',Y6! KL 
285 DRAW X60!,Y60!+1 X6!,Y6! KL: DRAW X60!,Y60!-1 X6!,Y6! KL 
290 DRAW XHO!,YHO! XH!,YH! KL 
300 COLORG O KX(1-Q) KEG K 
310 KL=198-2%0 
320 DRAW XAO', YAO! XA!,YA! KL 
550 DRAW XA6O!+1,YAGO! XAG!, YAG! KL: DRAW XAGO!-—1, YAGO! XA6!,YA6! KL 
335 DRAW XAGO!, YA6O'+1 XA6!, YAG! KL: DRAW ХАвО!,ҮАвО!-1 XA6:,YA6: KL 
540 DRAW XAHO!,YAHO! ХАН!,ҮАН! KL 
350 Xñ!=X!:YA!=Y:!:XAO!=X0!sYAO:!=YO!:XAH!=XH!:YAH:!=YH::XAHO:=XHO::YAHO:=YHO! 
560 XAG '=X6!2 YAG! =Y6! 1 XAGO!=X60!: YALO!=V6O! :Q=1-0 
370 RETURN 
395 REM 
396 REM 
397 REM Changement de l'heure: 
398 REM 
599 REM 
400 FILL ХМ3!,ҰМ!-10 XM3!+20, YM'+i0 O 
410 XMS!=XM!+R3+5.0:KL=23: GOSUB 700 
420 I-GETC:IF І<16 OR 1519 THEN 420 
450 IF I-18.0 THEN FILL XM3!,YM!-10 XMS! +20, YM!+10 O: XM3!=XM!+R3:KL=23:GOSUB 7 
00:G0TO 210 
440 IF I-16.0 THEN AM!=AM!+60.0%EM! : AH! -АН! +60. OXEH':GÜSUB 250: БОТО 420 
450 IF I-17.0 THEN АМ!-АМ!-60.ОЖЕМ!:АН!-АН!-60. ОЖЕН! : 6050В 230:GOTO 420 
460 FILL ХМ5!,ҮМ!-10 XM3!+20,YM!+10 O 
470 XM3!=XM!4R3+10. Oe KL=23: GÜSUB 700 
480 I=GETC: IF І<16 OR 1519 THEN 480 
490 IF I=18.0 THEN FILL ХМ5!,ҮМ!-10 XMS! +20, YM! +10 О: XM3!=XM!+R34+5. O: KL=23: GOS 
UB 700: 60ТО 420 
500 IF I=16.0 THEN AM! =AM! +67. OK6O. OREM! : AH! САН! +67 . 0460. OEH! : GOSUB 230: БОТО 
480 
510 IF I=17.0 THEN AM! =AM! - 67. 0860. OKEM! : AH! САН! —67. 0460. ОЖЕН! : GOSUB 250: GOTO 
480 
520 FILL XM!+R3S,YM!-10 XM3!+20, YM!+10 Oz DRAW 500,0 318,0 23 
550 FOR I=300 TO 318 STEP 3: DRAW І,0 1,20 23:NEXT 
540 DRAW 500,20 318,20 23: DRAW 509,20 509, ДО 23 
|. 550 FOR I-O TO 2000:IF GETC-18 THEN FILL 300,0 320,50 9: GOTO 470 
р 960 NEXT 
570 GOTO 570 
595 КЕМ 
596 КЕМ 
597 REM SBR: Trace du grand cercle: 
598 КЕМ 
599 КЕМ 
600 FOR I-O TO L:R=SOR(LKL-—-IKI) 
| 610 DRAW XM!-R,YM!+I XM!+R,YM!+I KL 
620 DRAW ХМ!-Б,ҮМ!-І XM!4+R,YM!—I KL:NEXT 
I=: RETURN 
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645 


647 
648 
649 
650 
660 
670 
480 


595 
696 
697 
698 
699 
700 
710 
720 
750 
740 
795 
796 
797 
798 
799 
воо 
810 
820 
830 
840 
850 
860 
870 
880 
881 
862 
885 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
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DAITIME 


REM 

REM 

REM SBR: Choix d'une heure: 

REM 

REM 

P=RND (32600.0412.0) 

NH=P / 3600: NM= (P—-NHX 3600) /60: NG=P—34600*NH-604NM 

IS=NS: AM! = (P—3400. OXNH) XPI/1800.0: АН! =PEP1/3600.0/6.0 
XA60!z:100.0: YAGO! =100. 0: ХАб! =100. 0: YAG!=100.0 

RETURN 

REM 

REM 

REM SBR:Trace du remontoir: 

REM 

REM 

FOR І-О ТО 10 STEP 3:DRAW XM3!,YM!+I XMS!+20,YM!+I KL 
DRAW ХМ5!,ҮМ!-І XM3!+20,YM!-I KL:NEXT 


DRAW XM3!+20,YM!-9 XMS! +20, YM!+9 KL: DRAW XM!+R3, YM! XM3!,YM! KL 


DRAW ХМ5!,ҰМ!-9 XMS!,YM!49 KL 

I=O: RETURN 

REM 

REM 

REM SBR: Trace de la chainette: 

REM 

REM . 

DOT 162,237 KL:DOT 163,238 KL 

DOT 170,238 kL:DOT 171,237 KL 

FILL 161,228 162,236 KL:FILL 172,228 171,236 KL 
FILL 163,235 164,248 KL:FILL 168,235 169,248 KL 
FILL 164,235 168,236 KL:FILL 164,248 168,249 KL 
FILL 164,245 169,246 KL:FILL 162,246 165, YMAX KL 
FILL 170,246 171, YMAX KL:FILL 164,239 169,258 KL 
1=0: RETURN 

REM 

REM 

REM 

REM 

REM 

КЕМ Ж Au revoir et merci.... 

REM 

REM 

REM 

REM Ж Copyright T.Bonduelle 1982. 
REM 

REM 


Ba 


REM 
REM d 
E o | P cx E 
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سی ا اس 





5 MODE O:PRINT СНАФ (12): SCROLLED & UNSCROLLED 
10 REM SCROLLED % UNSCROLLED MODE О 

20 REM by Р.Н. DAL 

30 REM A TOTAL 'LIST' RESET THE ORIGINAL SCREEN VALUES 

40 REM DO NOT USE COLORT UNLESS IN FULL SCROLL (23) 

50 REM I CAN HARDLY IMAGINE YOU WILL NOT TRY (red.) 

100 БЕМ (23) 


110 REM . ! 

120 REM . ! 

150 REM . !-------- UNSCROLLED 
140 REM . ! 

150 REM . ! 

160 REM X 

170 REM . ! 

180 REM . ! 

190 REM ..!-------- SCROLLED 
200 REM . ! 

210 REM ! 


300 INPUT " X VALUE "sX 

510 GOSUR 1000 

520 LIST —-1020:G0T0 320 

1000 IF Х<1.0 OR X>23.0 THEN RETURN 

1010 X=#B3E5+X*#86:POKE #8A,X MOD 256 

1020 РОКЕ #6B,X SHR 8:RETURN ` DAInamic 11 - 179 
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ж 
ж 
ж 


DAT 


pc MEMORY MAF 


ж 
ж 
ж 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


Basic V1.0/V1.1 


INTERRUPT VECTOR ROUTINES: 


Revision 4.4 Date: 


0000 - ООЗЕ 


0000-07 


0008-0Е 


0010-17 


0018-1F 


0020-27 


0028-2F 


0030-37 


0058-3F 


Interrupt vector OO МОР 
routines: ES PUSH H 
20 LHLD: 
‚> › vector address location 
-. ) see (#0062-#0071). 
ES PCHL 
оо NOP 
оо NOP 
UTILITY WORK AREA: 0040 - 0061 
ооло (РОВОМ: ) Memory of last outputs to output ports. 
'PORIM: ) Duplicate of (#FD06). 
РОВОМ: |) 
0041/42 RSWKi: Save (psw) during ROM bank switching 
0043/44 RSWK2: Save (H,L) during ROM bank switching 
0045/46 Spare. 
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Interrupt vector routine О: 

Used by Utility (LOOK). 
Interrupt vector routine 1: 

Used by Utility and encoding Basic. 

RST 1 + data: Switch to КОМ-Бапк 3. 
Interrupt vector routine 2: 

Used by stack interrupt. 
Interrupt vector routine 3: 

Used by sound interrupt. 
Interrupt vector routine 4: 

Used for math. routines. 

RST 4 + data: Switch to ROM-bank 1. 
Interrupt vector routine 3: 

Used for screen handling routines. 

RST 5 + data: Switch to ROM-bank 2. 
Interrupt vector routine 6: 

Used for keyboard service routines. 
Interrupt vector routine 7: 

Used to flash the cursor. 


28.4.82 
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Used by LOOK: 





0047 Store EI/DI instructions after using LOOK 
the first time (No clear occurs). 
0048/49 High address trace window. 
0044/4B Low address trace window. 
004€ Store EI/DI when LOOK is used. 
004D-4F Store current instruction of traced 
program. 
` 0050 Flag for Look initialisation: 
#FF: init. Look, else: #00. 
0051/52 IADR: It Address current instruction. 
0053 AFSAV: А: Contents A after execution of I. 
: 0054 : Idem status flags. 
0055 BCSAV: B: Idem В register. 
0056 : Idem C register. 
F 0057  DESAV: D: Idem D register. 
| 0058 : Idem E register. 
Е 0059 НІ SAV: : Idem Н register. 
` 005ñ : Idem | register. 


| 005В/5С SPSAV: S: Idem stackpointer. 
OOSD/SE PCSAV: P: Address next instruction to be 


% executed. 

|; OOSF TICIM: M: Current interrupt mask. 
3 Duplicate of (#FFF8) 

.. 0060 Т: Value ТІСС control ward. 
: (HFC after 72). 

г 0061 6: Value GIC control word. 


(#1B after Z2). 


INTERRUPT VECTOR ADDRESSES: 0062 — 0071 


0062/65 IQUSA: Vector address RST O: set by UT (72): SHEBSD. 
0064/65 I1USA: Vector address RST 1: utility/encode: #C7OE. 
0066/67  I2USA: Vector address RST 2: stack interrupt: #D9E2. 
0068/69  ISUSA: Vector address RST 3: sound interrupt: #0755. 
006A/6B I4USA: Vector address RST 4: math. restart: #C6CO. 
006C/6D ISUSA: Vector address RST 5: screen restart: #C4FD. 
ООБЕ/ЫЕ I6USA: Vector address RST 6: keyb. int. serv: #0578. 
0070/71 I7USA: Vector address RST 7: clock interrupt: #D9A9. 
By changing the vector addresses, other 
interrupt routines can be used. 


К SCREEN VARIABLES: 0072 - ООСЕ 


Character mode variables: 


0072/75 CURSOR: Cursor position address. 
0074 CURTY: Cursor type: 
#00: cursor flashes in colour. 
#01: cursor alternates between actual 
character and contents #0075. 
0075 CURIN: Cursor information: 

If type = O: Mask which is EXOR’ed with 
the colour byte for that 
character to flash it. 

If type = 1: Cursor alterates between 
actual character and this 
information. 
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0076/77 


0078/79 
007A 


007B 
007C 
007D 
007E 
007F 


0080/81 
0082/83 
0084/85 
0086/87 


0088/89 
008A/8B 
OOBC/BD 


OOBE/8F 
0090/91 
0092/95 


0094/95 
0096 
0097 
0098 
0099/98 
OO9B/9C 


009D 


009€ 
009F 
оодо 
OOAL 
OOAZ 
ООАЗ-АА 


OOAB 


ооас 
OOAD-B4 


CURSV: Contents screen RAM location indicated by 
the cursor: 
#0076 contains the colour byte, 
#0077 contains the data. 
LNSTR: Address line mode byte of currently used 
line of the screen RAM. 
LNEND: Lsbyte of end of cursor line. 
Used to check if end of line is reached. 
LCONT: Number of extended lines. 
COLMT: ) colours for colour #80+X3 
) registers COLORT #9O+X2 
) | #ñO+X1 
) #BO+XO 
Variables 


the screen: 


SCREEN: 
SCTOP: 
FFB: 
GRR: 


GRE: 
CHS: 
GAE: 
СНЕ: 
SCE: 
GTE: 
GAS: 
GTS: 
GRC: 
GRL: 
GAL: 
GXB: 
GREQ: 
CHSO: 


SMODE : 


set to describe the current state of 


Points to first byte of screen RAM (#BFFF). 
Points after header (#BFEF). 

First free byte in this mode. 

Points to top of rolled area. Contains the 
line mode byte of the line where split mode starts. 
Points after end of graphics area. 

Points to start of character area. 

Unsplit: End archive area. 

Split: After end of character area. 

End of screen (after trailer). 

End area used splitting mode. 

Unsplit: start archive area. 

Split: start temporary save area. 

Number of blobs horizontally in mode. 
Number of lines of graphics in mode. 

Number saved lines of graphics. 

Number of bytes/line this mode. 

Previous end of graphics. 

Previous start characters: 

Was split: previous mode byte of ist text line. 
Was graphics: Previous last COLORT-byte. 
Current screen mode (updated after mode 
changed): 


ЖОО mode 1 #08 mode 5 

#01 mode 1А #09 mode SA 

#02 mode 2 #0A mode 4 

#03 mode 2А ЖОВ mode ФА 

#04 mode 3 

#05 mode 3A #10 during init. 
#06 mode 4 

#07 mode 44 #FF mode О 


bits 4-7 are ignored; 
ЖОС, OD, OE, OF are inhibited. 


Graphics mode variables (From #00A2-#00B5 also 


used by 


COL MG: 


SCVR: 
SCXBUF : 


SBGOU: 


SBGOC: 
COLS: 
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the EDIT mode): 

) colours for colour #80+X5 

) registers COLORG H90-X2 

) ЖАО--Х1 

) #BO+XO 

Buffer used to hold contents of an 8 bit 


field during 16 colour updates. 

Flags when colour is being carried out to 
next field. 

Colour being carried out. 

Buffer for impossible requests. 








O0A2/AS 
OOA4/AS 
OOA6/A7 
0048 
0009 7AA 
GOAR 


ООАС/АП 


ООҺЕ/АҒ 
OOBO/B1 
OOB2/B3 
OOBA/B3 


0OBS/B6 
00B7/B8 
OORS / BA 
ООВВ/ВС 
OORD 
OOBE 
OOBF 
оосо 
OOU1 
O0C2/U5 
00C4/CS 


оосе/С7 


0O0C8-CF 
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‘Edit variables: 


'EBUFR: 
'EBUFN: 
'EBUFS: 
'EWINX: 
!'EWINY: 
' ECURX : 


!' ECURY : 


"СИКРТ: 
‘CURLS: 
! CURL В: 
"ТАВТР: 


Address start EDIT buffer. 

Address end of text in EDIT buffer. 

End available space in EDIT buffer. 

Offset of left side of window. 

Offset of top of window from start buffer. 

X-offset of cursor in document (current 

cursor position in text line). 

Y-offset of cursor in document (count of 

current cursor line). 

Pointer to cursor position in buffer. 

Pointer to line mode byte of cursor line on screen. 
Pointer to line mode byte of cursor line in buffer. 
Address tab position table. 


Line drawing variables: 


DELTA: 
ЕТ: 
COR: 
SECT: 
SECTC: 
TRIM: 
DIRN1: 
DIRN2: 
ANIM: 
FCOLR: 
ASMERM: 


AESTOF: 


Amount to add into count. 

Count. 

Adjustments for long sectors. 

Lower of 2 possible sector lengths. 

Number of sectors. 

Amount to trim off last sector. 

Set if Y-direction is negative. 

Set if swap X,Y directions. 

Set if animate іп 4 colour mode. 

Details of colour required. 

Address memory management routine (#CAO1). 
Checks available RAM space. 

Address emergency stop routine (#CA25). 
Return-routine for "Out of space for mode’. 
Spare. 


MATH. WORKING AREA: ООрО — OOFF 


OODO/D1 
OO0D2/D3 
оор4 


оор“-ра 
O0D9-FF : 


OODE 
OODF-E2 
OOES 
OOE4 
OOE4-FO 
00Е7-ЕА 
ООЕВ-ЕЕ 
OOEF-F2 
OOF 1 


MVECA: 


FFAC: 


EXPDF: 


XN: 


FTWRK:z 


EEE 


Pointer to table with error routines (#C7F2). 
Painter to input routine (#DDEO). 
Math. chip flag: offset of start HW/SW vector: 
{offset for RST 4 restart routines): 

ЖОО Мо math. chip. 

#7B math. chip present. 
Arithmetic accumulator. 
Used as scratch pad memory for math. 
package. Used in single and double byte 
configurations. і 


Also used for data save during stack operations. 
Length output string іп #O00E4-F0. 


Sign output string. 
Used for output conversion. 


Digit count in output conversions. 
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BASIC VARIABLES: 0100 - OZEB 


User state: 
Following are saved by soft break: (SFRAME = SYSTOP - SYSBUT) 


0100/01 SYSBOT: ) Start of current line. Points to first 
CURRNT: ) byte of line number. 

0102/03 ВКЕРТ: Start of current command. 

0104/05 LOPVAR: Points to current loop variable. Points to 
position of variable in symbol table. 

#00 if no running loop. 

0106 LSTPF: Flag for integer/fpt loop and 

implicit/explicit step. 


bit Oz O = implicit step. 
1 = expicit step. 
bit 7: О = ЕРТ loop variable. 


1 = INT loop variable. 
0107-00 LSTEP: Step value if explicit. 
O10B-OE LOUNT: Loop iteration count. 
Oi10F-10 LOPPT: Pointer to start address loop. 
0111/12 LOPLN: Pointer to start loop line. 
0113/14 STKGOS: Stack level at last GOSUB. 
#00 if no active call. 


0115 SYSTOP: ) 
(STRFL: ) Trace/step flag together) 
ТКАҒІ : > Trace flag (#FF when set). 


0116 STEPF: Step flag (#FF when set). 
0117 RDIPF: Flag set while running input (set: ЯҒҒ). 
0118 КИМЕ: Flag set while running program. 


(Previous 2 bytes must be consecutive) 
Runtime scratch area: 


O119/1A GSNWK: Scratch area for GOSUB/NEXT (2 bytes). 
Points to destination address last GOSUB. 
LISWi: Startaddress of listed area. 
COLWK: Scratch area for SCOLG, SCOLT (4 bytes). 
Contains last selected COLORT/COLORG values. 
O11B/1C LISW2: End address listed area. 


Save area for restart on error: 


O11D/1E ERSSP: Stack pointer. 


011F-21 

0122 ERSFL: Set if encoding a stored line (set: #01). 
Data/read variables: 

0123 DATAC: Offset of next character to encode. 


0124/25 БАТАР: Pointer to current data line. 

'DATAQ: Pointer after current data line. 
0126 CONFL: Set if there is a suspended program (set: #01). 
0127/28 STACK: Current base stack level. 


Scratch location for expression/function evaluation. 


0129-2С WORKE: Scratch area. Contains also the argument A of 
the last software random RND (A) . 


Random number kernel: 


0120-50  RNUM: Random number kernel. 
IRNDLY: Random number delay count (1 byte). 
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0131 


0152/55 


0154 
0135 


0136 


0137 


0138 
0139/3A 


O13B/3C 


O13D 


O13E-BD 


O1BE/BF 
O1CO 


O1C1 


DAIPC MEMORY MAP "4.4 


Output switching: 


OTSW: 


#00 output to screen + RS232. 
#01 output to screen only. 
#02 output to edit buffer. 
#05 output via DOUTC. 


Encoding input source switching: 


ЕҒЕРТ: 


ЕҒЕСТ: 
EFSW: 


Encoding input pointer. Points to start- 
address of Basic-line just being encoded. 
Encoded input count. Counts length of line. 
Encoded input switching: 


ЖОО Input from keyboard/DINC. 
#01 Input from string. 
#02 From edit buffer to program area. 


Variables used during expression encoding 
(could overlap with runtime variables): 


TYPE: 


RGTOP: 


OLDOP: 
HOPPT: 


RGTPT: 


Mask to 


CASSL: 


Encoded 


EBUF : 


Type of latest expression or item: 


#00 FPT 

#01 INT 

#02 STR 

Latest priority operator: 

#00 па operation 464 IOR 
#38 AND #6C IXOR 
#39 OR 48D SHL 
#50 >= #8E SHR 
#51 > #AO + 
#52 <> зді - 
#55 <= #C2 / 
#54 < #C3 ¥ 
#55 = #CF MOD 
#69 IAND #E4 ^ 


Old priority operator. 
Pointer to place in encoded 
for next operator. 

Pointer to place in encoded 
of operand latest operator. 


input buffer 


input buffer 


select cassette 1 or 2: 


#10 Cassette 1 activated. 
#20 Cassette 2 activated. 


input buffers: 


128 bytes buffer. 
utility. 


Also used by 


Interrupt handler variables: 


TIMER: 
CTIMR: 


KBXCT: 


Timer location. Also used in WAIT TIME. 
Cursor clock. Used for cursor flashing. 
СТІМУ: ЖОҒ: Flash time іп 20 ms units. 
When #00, cursor flashes. 
Extend keyboard scan time counter. 
keyboard scan will be performed. 
KBXCK: #02: Keyboard scan time (16 ms 
units). Alsa used by RAND routine. 


When #00, 
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O1U2-CF: 


01C2 
01C03/C4 


O1C5/C6 
O1C7 
01C8 


O1C9 
олса 


O1CB 


O1CC/CD 
O1CE/CF 
O1DO-DB 
O1DE-EB 
O1EC-FA 


O1F5- 
—0274 


0275- 
—28E 


028F 


0291/92 
0293 
0294 
0295 
0296 


0297-94 
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Sound Control block storage: 


SCBO: 


SCB1: 
SCB2: 
NCB: 


Sound control block O. 

SCBL: Length of a sound block (14 bytes). 

Duration count of present volume. 
Pointer to present envelope volume/duration 
in envelope table. 
Fointer to start envelope table. 
Sound-volume X8. 
Volume, calculated from sound-volume and 
present envelope volume. 
Counter for tremolo. 
Final volume, calculated from volume and 
tremolo fluctuations. 
Glissando flag: 
#00  Endperiod reached. 
402 Endperiod not reached. 
Present period. 
Final period (glissando). 
Sound control block 1 (see SCBO). 
Sound control block 2 (idem). 
Noise control block. 

NCBL: Length of noise biock (9 bytes). 
The noise control block is identical to the sound 
control block, but without period-values and 
tremolo. 


Envelope storage: 


ENVST: 


IMPTAB: 


IMPTYP: 


КЕОТҰР: 


Envelope storage (128 bytes). 
ENVLL: #40: Number of bytes/envelope 
NUMENV: #02: Number of envelopes. 

Two envelope tables of each 64 bytes: 
#01F5-#0234 and 80235-40274. 

Implicit type table. 


#0275 А 4027€ H 40285 O so28a V 
#0276 В 343027D I #0284 Р #028B W 
#0277 С #O27E J #0285 Q #O28C X 
#0278 D #O27F К #0286 R #0280 Y 
#0279 E #0280 L #O287 5 #O28E 7 
#027A F #0281 M #0288 T 

#027B8B 6 #0282 N #0289 U 


Default number type. Selected by IMF command. 
#00 ЕРТ 


#20 STR 
Required number type for present operation. 
#00 ЕРТ 
#10 INT 
#20 STR 
#40 Array without arguments 


Spare variable space: 


DATAQ: 
RNDLY: 
POROM: 
POR1M: 
INSW: 


Pointer to begin current data line. 


Duplicate of (#FDO4). 
Duplicate of (#FDOS5). 
Input switching: 
If #00, input from keyboard. 
If <>#00, input from DINC. 
Spare. 
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Heap/text buffer/symbol table pointers: 


029В/9С HEAP: Start address of HEAP. 
O29D/9E  HSIZE: Size of НЕАР. 
HSIZD: #100: Default size. 
O29F/ñO  TXTBGN: Start address of text buffer. 
0201/42  TXTUSE: End text buffer and. 
STBBGN: Start symbol table. 
0283/44  STBUGE: End of symbol table. 
0285/86  SCRBOT: Bottom screen RAM area (48K): 
mode Oz #B350 
mode 1/2(A): #B7A0 
mode 3/4(A): #A6SC 
mode 5/6(A): #63568 


Keyboard variables + constants: 


о2А7/АВ ЕВТРТ: Pointer to table with ASCII-codes. 
O2A9-BO MAP1: Latest scan of keys (key-codes). 
(row О in 40249, row 7 in KOZ2BO) 
O26F RPLOC: Byte containing REPT key. 
ЕРМЕК: #20: Rept key bit. 
BRSEL: #40: Column select mask for BREAK. 
BRMSK: #40: Break key bit. 
O2BO SHLOC: Byte containing SHIFT. 
SHMSK: #40: Shift key bit. 
O2B1-BB МАР: Previous scanning of keyboard. 
о2В9 KNSCAN: Set to scan for BREAK only. When (#02B9) 
is #FF: scan for BREAK only. 
O2BA-BD  KLIND: 4 byte circular buffer to store the ASCII 
values for keys pressed. 
KBLEN/KEYL: #04: length rollover buffer. 
O2BE/BF KLIIN: Next position for input to KLIND. 
O2CO/C1 KLIOU: Next position for output from KLIND. 
02C2 RPCNT: Count for КЕРТ. #01 when БЕРТ is not 
pressed. Else it is used as timer for the 
repeat function. 
92C3 ӨНІК: Set to #FF when CTRL is pressed to 
invert SHIFT. Else #00. Used to 
calculate the offset for the ASCII code 
table. 
02C4 KBRFL: Break flag. #FF indicates BREAK pressed 
(Only if suspended program). When BREAK is pressed, 
#02C4 counts from ОО to ЖОҒ before stopping 
the program. 


Data/cassette switching vectors: 


Copy of ROM (#D7A4 — #D7CA) for cassette and RS232. 
Can be loaded with other I/0 vectors. 


О2С5-ЕВ  IOVEC: O2C5 МОРЕМ: C3 B8 02 JMP: D2B8 
O2U8  WBLK: C3 Fi D2 JMP: D2F1 
O2CB  WCLOSE JMP: D427 
О2СЕ КОРЕМ; C3 25 DS JMP: D325 
O2D1 RBLK: C3 40 D3 JMP: D340 
0204 RCLOSE JMP: D445 
0207 МНК: CS да 05 JMP: D3A2 
O2DA RESET: C9 OO ОО БЕТ 
0200 DOUTC: Є? OO ОО БЕТ 
O2EO DINC: C3 ва DD JMP: DDB4 


au 

n 
ы 
м 
ч 
о 
> 


п 
(A 
> 
о 
a 
A 


О2ЕЗ С9 ОО ОО БЕТ 

OZEG TAPSL: 24 24 Tape speed leader. 
О2ЕВ TAPSD: 24 3C Tape speed data. 
O2EA TAPST: 24 18 Tape speed trailer. 
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HEAP, PROGRAM AREA, SCREEN RAM: OZEC - BFFF 


ОРЕС- (RAM: HEAP (Strings + arrays) - See 
-BFFF (VAREND: Program (compiled Basic) - See 
(VARLAST: Symbol table - See 


Not used RAM 
Screen RAM 


ROM AND CPU AREA: 


ЕООО- 
-F7FF 


F800- 
-ЕВЕЕ 


Cooo - ЕВЕЕ 


24K ROM: 


#COOO—#DFFF : 
#EOOO—#EFFF : 


(sw 


- See 
- See 


itchable). 


(#029B/9C) . 
(#O29F /ñO) . 
(40201/02). 
(#02A3/A4). 
(#02A5/A6). 


8K non-switched ROM. 
4 banks of each 4K ROM. 


Can be used for ROM extension (reading only). 
Іс already completely used by Memocom MDCR-D. 


Microcomputer stack. > 
Іпсі. vector for MDS jump instructions. 
Bottom of stack RAM. 


#F800 SRBOT 
#F900  STTOP 


1/0 DEVICE ADDRESSES: 


F900 - FFFF 


FBOO 


FRO2 


Top of 


Spare І/П device addresses. 
(Not wired on pC board). 


MATH. CHIP AMD 9511: FBOO - 


===========r=—W=H——. _|.—Tkps on == 
———=—==—= === T =É 


MTHAD: >) Data math.chip. 


MDATA: ) 


MCOMD: ) Command + status. 


MSTATUS: ) 


AMD9511 operator and status 


ODADD: 
ODSUB: 
ODMUL : 
ODDIV: 
OSORT: 
OSIN: 
OCOS: 
ОТАМ: 
DASIN 
DACOS 
DATAN 
DL 06: 
OLN: 

OEXP: 
ОРЫН: 
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#2C 
#2D 
#2E 
#2F 
#01 
#02 
#05 
#04 
#05 
#06 
#07 
#08 
#09 
#0A 
#0B 


Int addition 
Int subtract 
Int multiply 
Int division 
Square root 
Sine 

Cosine 
Tangent 

Arc sine 

Arc cosine 
Arc tangent 
Log base 10 
Log base e 
Expotential 
X^Y 


FBFF 


bytes: 
OFADD: 
OFSUB: 
OFMUL: 
OFDIV: 
OFIXD: 
OFLTD: 
OCHSD: 
OCHSF : 
OPTOD: 
OPOPD: 


MBUSY: 
MERRB: 
MZERO: 


stack RAM. 


#10 Fpt addition 
#11 Ері subtract 
#12 Fpt multiply 
#15 Fpt division 
#1E Fix 

#1C Float 

#34 Change sign int 
#15 Change sign fpt 
#37 Push int/fpt 
#38 Pop int/fpt 


#80 Busy status bit 
#1E All error bits 
#20 Top of stack 
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FROGRAMMABLE INTERVAL TIMER 8253: FCOO - ЕСЕР 


د r E  y-—r[F-- r r=J.1—+=z=£s=sr a‏ سے سے کے === =Tk=‏ = کے کے کے کے کے کے کے 


Used for sound generator. 5 independent 16 bits 
down counters with programmable counter modes. 


FCOO/01 SNDADz ) 
SNDO: ) Counter O (oscillator channel 0). 
{РО СН: Used as counter for paddle operations. 
FCO2/03  SND1: Counter 1 (oscillator channel 1). 
 FCO4/08 SND2: Counter 2 (oscillator channel 2). 
(16 bit data; LSB first) 
ЕСОФ SNDC: Command 8255. To be loaded prior to freq. 
selection with resp. #36, #76 and #86. 
Command word formats 
bit о : О binairy counter 16 digits. 
1 BCD counter (4 decades). 
5.2.1: ООО mode O: Int. on end count. 
001 mode 1: Progr. one shot. 
x10 mode 2: Rate generator. 
x11 mode 3: Sq.wave rate gen. 
100 mode 4: SW trig. strobe. 
101 mode 5: HW trig. strobe. 
5,4 : ОО Counter latch operation. 
O1  Read/load MSB only. 
10 Read/load LSB only. 
11 Read/load LSB first, then 
MSB. 
7,6 : OO Select counter O. 
O1 Select counter 1. 
19 Select counter 2. 
11 Illegal. 
Several control words: 
COFIX: #00 Fix count on channel 0. 


COMO: #30 Chan.0, mode 0, 2 byte ор. 
COMI: #52 Сһап.О, mode 1, 2 byte ор. 
COM3: #36 Chan.O, mode 3, 2 byte op. 
СІМ5: #76 Сһап.1, mode 3, 2 byte op. 
x Сам: H#B6 Сһап.2, mode 3, 2 byte op. 


DISCRETE I/O DEVICE ADDRESSES: FDOO - FDFF 


FDOO PORI: IN (1) bit O: — 

جو1 

2: РІРСЕ: Page signal 

3: PIDTR: Serial output ready 

4: FIBUIs Button on paddle 1 
(1 = closed) 

5: PIBU2: Button on paddle 2 
(1 - closed) 

é4: РІНРІ: Random data 

7: PICAI: Cassette input data 


FDO1 PDLST: OUT (3) Single pulse used to trigger 
paddle timer circuit. 
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FDO4 PORO: OUT (2) bit O - 3: volume osc. channel О 
4 — 7: volume osc. channel 1 
FDOS РОВІ: QUT (2) bit O — 3: volume osc. channel 2 
4 - 7: volume random noise 
generator. : 
Ерое РОВО: OUT (3) bit O: POCAS: Cassette data output 


1,2: PDLMSK: Paddle select 
3: РОРМА: Paddle enable 
4: РОСМ1: Cassette 1 motor 
control. (O = run) 
5: РОСМ2: Cassette 2 motor 
control. КО = run) 


7,6: КОМ bank switching: 
ОО bank О 
01 bank 1 
10 bank 2 
іі bank 3 


PROGR. PERIPHERAL INTERFACE 8255 : ҒЕОО — FEFF 


EEE en nn nn nn en س س‎ en 


Used for DCE-bus (GIC Controller). 


ҒЕОО GIC: (1) I/O port А 
FEO1 (1) I/O port B 
FEO2 (1) 1/0 port С 
FEOS (6) Command word 8255: 
Contr. РА PCH РСЕ PB (mode О) 
#80 out out out out RWMOP 
#81 out out іп out 
#82 out out out іп 
#83 out out іп in 
#88 out in out out 
#89 out in in out 
#8A out іп out in 
#86 out іп іп іп 
#90 іп out out aut RWMIP 
ў #91 in out in out 
#92 іп out out іп 
#93 in out in in 
#98 in in out out 
#99 in in in out 
яға іп іп out іп 
ов їп їп іп іп 


DAI DCE-BUS CONFIGURATION BACK UIEN 


23 31 28 EF 25 23 21 13 


т 1513113 F 5 3 1 





ғ“ 
E 
Led 
га 
Wi 
mi 
Һа 
CO 
Ги 
са 
rna 
SA 
га 
Га 
nha 
тш 


21& 14 12 185 6 4 


Га 
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ТІСС: TIMER + INTERRUPT CONTROLLER 5501: FFOO-FFFF 


FFFO (4) Serial input buffer. Contains the last 
character received on the RS232 interface. 
FFF1 (4) Keyboard input port. Bottom 7 bits are data 


input from the keyboard. Bit 7 is the IN7 
line from the DCE-bus and is attached to 
the page-blanking signal for the TV. Every 
20 ms. an impulse is present. 
ЕЕЕ2 (5) Interrupt address register: 
bits 5,4,5: Number of pending 
interrupt. 
7,6 з) 
2,1,0: ) always 717 
ЕҒЕЗ (4) Status register: 
bit O: Frame error. Set by a BREAK on the 
RS232 input. 

1: Overrun error. Set if a character 
has been received but not taken by 
the CPU. ` 

2: Serial input. Set if no data is 
received. 

5: Receive buffer loaded. Set if а 
character has been received. 

4: Transmit buffer empty. Set if RS232 
output is ready to accept another 
character. 

9: Interrupt pending. Set if one or more 
of the enabled interrupts has 
occured. 

6: Full bit detected. Set if the first 
data bit of an incoming character 
has been detected. 

7: Start bit detected. Set if the start 
bit of an incoming character has been 
detected. 

FFF4 (5) Command register: 
! bit О: TICC reset. 

1: Send Break. If set, the serial output 
is high impedance. 

2: Interrupt 7 select. А "1" selects ІМ? 
of the DCE-bus, а 70” selects Timer 5. 

5: Interrupt acknowledge enable. 

A "1" enables ТІСС to accept а INTA 
signal from the CPU. 

4 — 7: Always О. 

FFF5 (6) Communications rate register: 
bit O: 110 baud 

1: 150 baud 

2: 500 baud 

5: 1200 Баца 

4: 2400 baud 

з: 4800 baud 

6: 9600 baud 

7: 1 - one stop bit 
О — two stop bits 


DAlnaaic 11 - 191 





DAIpc MEMORY MAP V4.4 


FFF6 (6) Serial output buffer. Write byte to this 
location to send it on the RS232 output. 
Use only when #FFF3-bit 4 is high. 


FFF7 (7) Keyboard output port. Data output to scan 
keyboard. 
ЕЕЕВ (5) Interrupt mask register: 


bit O: timer 1 has expired (UTIM). 

1: timer 2 has expired. 

2: External interrupt (STKIM). 

5: Timer 3 has expired (SNDIM). 

4: Serial receiver loaded. 

5: Serial transmitter empty. 

6: Timer 4 has expired (KBIM). 

7: Timer 5 has expired or ІМ? (СІКІМ). 
(react only ап low-high transition) 


FFF9 (5) UTIAD: Timer 1 address (UT). 

FFFA (5) Timer 2 address. 

FFFB (S) SNDIAD: Timer 3 address (sound). 
ҒЕЕС (5) KBIAD: Timer 4 address (keyboard). 
FFFD (5) Timer 5 address. 

FFFE not used. 

FFFF not used. 


NOTES: (1) Read and write allowed. 

(2) Reading allowed. Writing too, but may Бе 
overwritten by BASIC pragram. 

{3) No writing allowed. 

(4) Reading allowed, writinq not. 

(5) Should not be accessed. 

(6) Writing allowed, reading not. 

(7) Reading not allowed, writing is harmless but 
uselesss keyboard scanner will overwrite it. 


REMARKS: 
ADDRESSES FBOO - FFFF: 


The 2 highest bytes of the address are used for the chip 
select signal CS of the peripheral equipment 8253, 8255, 
5501 etc. The lowest byte is used to address the several 
registers of the peripheral. The 2nd LSB does not have any 
value. So addresses in this range сап be read as FBxO — 
ҒЕхЕ, in which x is a don’t care. 


For additional information and comments, please 
contacts 

Jan Boerrigter 

Fabritiusstraat 15 

6174 RG Sweikhuizen, NL. 

tel. 04493-2093 
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DEMO COLOURS 16-23 


REM PROGRAMMA GEMAAKT DOOR J.G. van der HOEVEN. 


4 MODE O:PRINT CHR$(12):CURSOR O,12:PRINT "Als U tydens het tekenen op de spatiebalk drukt 
rygt U" . 

8 PRINT "informatie over de ор dat moment іп gebruik zynde kleuren." 
6 CURSOR 10,1:PRINT “Druk op de balk om door te даап." 

7 G=GETC: IF 6-0 THEN WAIT TIME 5:GOTO 7 

10 MODE O:COLORG © О O O:MODE 2 

15 X170: X2=XMAX: X327: Х4=0: XS2XMAX/2: Y120: Y3=YMAX/2: Y4=0: YS-YMAX : ХВ=ХМАХ/2: ҮВ=0 
20 D=RND (15) +1: B=RND (15) +1: C= (D+B) MOD 16 

30 COLORG O D B C 

35 FOR N-O TO XMAX ` 

40 DRAW X1,Y1 X1,Y1+15 23:X1=(X1+1) MOD XMAX 

50 Vi=(X1+10) MOD XMAX:DRAW У1,Ү1 М1,Ү1+15 17 

50 DRAW Х2,Ү1%5 Х2,Ү1%10 18:XA=(XA+1) MOD (ХМАХ-1):Х2=ХМАХ-ХА 

70 VA=(XA+15) MOD (ХМАХ-1):У2-ХМАХ-УА: DRAW У2,Ү1%5 У2,Ү1410 19 

80 DRAW O,Y3 XMAX,Y3 16:Y3=(Y3+1) MOD YMAX 

90 DRAW X3,0 X3,YMAX 18:X3=(X3+1) MOD ХМАХ 

100 DRAW X4,Y4 Х4+5,Ү4 21:Х4=(Х4+1) MOD (XMAX-5):Y4=(Y4+1) MOD YMAX 

110 XB=(XB+1) MOD (ХМАХ-7):Х5=ХМАХ-ХВ:Ү5=(Ү5+1) MOD (YMAX-4):DRAW XS, YS X5-7,Y5 23 
140 IF GETC<:0 THEN GOSUB 200 

150 NEXT N:Y1=(Y1+16) MOD (YMAX-15) 

170 GOTO 20 

200 MODE 1:MODE 2 

210 FILL 0,5 71,13 D:FILL 0,21 71,51 B:FILL 0,59 71,49 C 

220 KL=16:FOR X-2 TO 65 STEP 9:FILL X,0 X*4, VMAX KL:KL-EL-1:NEXT 

230 PRINT "gebruikte kleuren:":PRINT " 16 17 18 19 20 21 22 25" 
245 IF GETC=0 GOTO 245 

250 MODE 1:MODE 2A 

260 FILL 0,1 71,3 D:FILL 0,5 71,7 B:FILL 0,9 71,11 С 

270 Кізіб:ҒОН X=16 TO 48 STEP 4:IF X=32 THEN NEXT X 

279 FILL O,X 71,X+2 KL:KL=KL+1:NEXT 

280 FILL 1,0 4,64 D:FILL 7,0 10,64 B:FILL 13,0 16,64 C 

290 KL=16:FOR X=19 TO 67 STEP 6: ТЕ Х-42 THEN NEXT X 

294 FILL X,0 X*3,64 KL:KL=KL+1:NEXT 

300 PRINT “Gebruikte kleuren by COLORG A B C D" 

310 PRINT * В C D 16 17 18 19 299 21 22 23" 
400 IF GETC=0 GOTO 400 

500 WAIT TIME 10:MODE 2: RETURN 

600 МОВЕ 2:COLORG O O 0 O 

810 FILL 0,0 XMAX,YMAX 18 

620 FOR X=0 ТО ХМАХ STEF 3:DRAW X,O ХМАХ/2,ҰМАХ 19:МЕХТ 

630 COLORG О 0 15 15 

640 FILL 0,0 ХМАХ,УМАХ 16 

650 FOR X=0 ТО XMAX STEP 3:DRAW X,YMAX ХМАХ/2,0 17:МЕХТ 

660 COLORG O 19 0 10 

670 FILL 0,0 ХМАХ,УМАХ 18 

680 FOR Y-O TO YMAX:DRAW ХМАХ/2-(Ү MOD 2),Y XMAX/2+(Y MOD 50),Ұ 19:МЕХТ 
690 COLORG O O 14 14 

700 FILL 0,0 XMAX,YMAX 16 

710 FOR Y-O TO YMAX STEP 3:DRAW XMAX,Y O,YMAX/2 17:NEXT 

720  COLORG О 5 0 5:GOTO 610 


IAND М IOR MJ IXOR NR INOT NN SUL WR SHR mmm 


10000 RSz"REAL BYTE MANIPULATIONS": BOSUB 300: PRINT 


19010 PRINT "integer or 00101001 IOR 10001100 = 10101101":PRINT :PRINT "integer and 00011000 IAND 
11010111 = 00010000" 


10030 PRINT :PRINT "exclusive or 10001111 1108 111111 = 01110000 іРКІМТ :PRINT "shift right 10110 
08 SHR 4 = 0001011" 


10050 PRINT :PRINT "shift left 00001010 SHL 4 = 1010000“ :6070 800 
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HOLLAND IN MODE 2 


150 


160 
C 
170 
с 
180 
С 
190 
с 
200 
с 
210 
C 
220 
t 
250 
с 
255 
240 
с 
230 
C 


260 
C 
270 
C 
1000 


REM holland in mode 2 XXX 


ka bi bé Fa 


COLORG 8 5 š O 
CLEAR 1500 
MODE 2 
FOR X!=1.0 TO 109.0 
READ A,B,C,D 
FILL A,B C,D 5 
. WAIT TIME 25 
NEXT 
DATA 34,0, 36,6,33,1,33,2,37,0,37,4,38,2,38,3,35,7,37,8, 34,9, 38 
,9,7,9,8,9 
DATA 1,10,2,10,4,10, 10,10, 31, 10,37,10,1,11,11,11,27,11,37,11,1 
,12,6,12 
DATA 1,13,4,13 
DATA 9,12,12,12,26,12,38,11,10,12,15,14,25,13, 39, 17,6,14,8, 14, 
20,14,22,14 
DATA 4,15,10,15,14,15,15,19,17,15,18,15,21,15, 23,15, 2, 16,5, 16, 


/7,16,9,16 


DATA 13,15,123,19,16,16,17,20,18,16,35,32, 3, 17,4417, 6,18,8,18,1 
0,18,11,18 

DATA 36, 18,36, 21,37, 18, 37, 20, 38, 18, 38, 19,8, 20, 10,20,6,21,8,21, 
11, 21,13, 21 

DATA 10,22, 11, 22,8, 25,10, 23,17, 22,17, 39, 14, 22, 16, 33,15, 22, 15,3 
1,14, 23,14, 30 

DATA 13%, 23,13, 28, 12, 24,12, 28,10, 25, 11,25, 36, 24, 38, 41,39, 25,41, 
41,42, 24,42,41 

DATA 42,25, 44,41, 45, 26,45, 41, 46, 26, 46, 28, 47, 27, 47, 28, 46, 30, 46, 
38,47, 31,47,37 

рата 48, 32, 49, 37,50, 33,50, 36, 18, 33, 22, 43, 23, 33, 26, 33, 23, 34, 24, 
34,35, 33, 31,33 

рата 55, 34,32,34, 35,35, 33, 35, 35, 36, 34, 36, 23,36, 23,41, 24, 36, 24, 
38, 23,42, 25,42 

DATA 23,43, 26,43, 19, 44,19, 48, 20, 44, 20,47, 21, 44, 21, 46,22, 44, 23, 
47 

DATA 28, 34, 29,34, 26, 35, 50, 35, 26, 36,31, 36, 275375 32, 37, 29, 38, 33, 
38, 30,39, 34,39 

рата 30,40, 33,40, 37,42, 45, 58, 33, 42, 32,42, 33, 43, 36, 56, 32,43, 31, 
43,32, 44,33,55 

DOT 11,17 5:DOT 12,19 5:DOT 35,37 5 

рата 51,47,29,54, 30, 46, 28, 46, 28, 47, 28, 48, 28,51, 28, 53, 30, 55, Зі: 
55,34,57, 35,57 

DATA 36,57, 36,58, 42,59,46, 59, 46, 58, 47, 43, 48, 43, 49, 56, 50,55,50, 
47,51,54,51,50 


DATA 19,50,20,50,20,51,21,51,21,52,21,51,21,54,21,55,22,55,25, 
55,23,56, 25,55 
DATA 25,57, 25,58, 26, 58, 28, 58, 28, 59, 30,59, 32,60, 34,60, 38,61, 40, 
61,43, 62,43,62 


GOTO 1000 
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100 КЕМ Жжж RORSCHACH-INKTULEKKEN 
110 КЕМ ЖҰЖ DE BONT CORNEEL : 19-10-1981 

120 MODE O:PRINT CHR$(12):COLORT 12 0 12 12:POKE %75,22 

130 POKE APEEF, #54: CURSOR O,23:PRINT "INKTVLEKKEN" 

140 CURSOR 0,21 

150 FOR 1=0.0 ТО 58.0:РБІМТ CHR$(255);:NEXT I:PRINT 

160 FOR I-20.0 TO 5.0 STEP -1.0:PRINT CHR$(255);CHR$(255); 

170 PRINT TAB(S7) ;CHR$ (255) ;CHRÉ (255) : NEXT I 

180 РОК I=0.0 TO 58.0:PRINT CHR$(255);:NEXT I 

190 CURSOR 4,19:PRINT "DIT PROGRAMMA GENEREERT WILLEKEURIGE TEKENINGEN, " 
200 CURSOR 4,18:PRINT "GEBASEERD OP GROTE EN KLEINE CIRKELS,WAARDOOR EEN" 
210 CURSOR 4,17:PRINT "INKTVLEK-EFFECT ONTSTAAT.DE TEKENINGEN ZIJN PER-" 
220 CURSOR 4,16:PRINT "FECT SIJMMETRISCH EN KUNNEN GEBRUIKT WORDEN IN DE" 
230 CURSOR 4,15:PRINT "ALOM BEKENDE PSYCHOLOGISCHE ° RORSCHACH-TEST” „ " | 
240 CURSOR 4, 14:PRINT " (MEN VRAAGT DE FROEFPERSONEN DINGEN" | 
250 CURSOR 4,12:PRINT " ТЕ HERKENNEN ІМ DEZE INKTVLEKKEN) " | 
260 CURSOR 4,12:PRINT "ZODRA EEN TEKENING IS OPGEBOUWD, ZAL DE ACHTERGROND" 
270 CURSOR 4,11:FRINT "SNEL VAN KLEUR VERANDEREN,EN EEN FLUITSIGNAAL ZAL" 
280 CURSOR 4,10:PRINT "WEERKLINKEN.MEN KAN HET PROGRAMMA STOPPEN DOOR OP DE" 
290 CURSOR 4,9:FRINT "TAB-TOETS TE DRUKKEN, OFWEL DRUKT МЕМ OP DE SPATIE-" 
300 CURSOR 4,8:РЕІМТ "BALK,EN ZAL ER EEN NIEUWE TEKENING GEMAAKT WORDEN. " 
310 CURSOR 4, &:PRINT " DRUK OF EEN TOETS OM TE BEGINNEN "; 

320 ТЕ GETC=0.0 THEN 320 

220 КЕМ %Я% TEKENING 

340 MODE 4:COLORG 12 8 4 0 

350 FILL 0,0 158,129 O:FILL 2,2 156,127 12 

360 FILL 4,4 154,125 O:FILL 6,6 152,123 4 

370 FILL 8,8 150,121 8:FILL 10,10 148,119 12 

380 S=INT(10.OKRND(1.0)) 410.0 

390 FOR N=i.0 TO 5: A=INT (49. OERND(1.0))+10.0 

400 B=INT (109, ОЖЕМО (1.0) ) +10. Oz D= INT (15. OXRND (1.0) ) 42.0 

410 FOR Z=-D TO р: А2=А4-508 (DXD-ZX2) 

420 IF AZ:10.0 THEN AZ=10.0 

430 ІР A2279.0 THEN AZ=79.0 

440 — CZ-A*SOR(DXD-ZEZ) 

450 IF С2<10.0 THEN CZ=10.0 

460 IF С2279.0 THEN CZ=79.0 

470 BI=B+Z 

480 ТЕ В7510.0 THEN BZ=10.0 

490 IF BZ>119.0 THEN BZ-119.0 

500 DRAW AZ,BZ CZ,BZ O:DRAW 158-AZ,BZ 158-CZ,BZ 0 

510 NEXT Z:NEXT М 

520 SOUND i 0 15 0 FREQ(1000.0):WAIT TIME 10 

550 COLORG 9 8 4 O:SOUND OFF :WAIT TIME 10 

540 G=GETC 

550 IF 8222.0 THEN COLORG 12 8 4 O:60TO 370 

560 IF G=9.0 THEN 580 

570 COLORG 12 8 4 O:GOTO 520 

580 MODE 4A:PRINT :PRINT :PRINT TAB(22);:POKE 475,95:END 








DAInamic 11 - 195 


A POT EE МН... 
ER OCT 





SECTION 1: USE OF MEMORY 


In the DAI personal computer а BASIC program іс stored 
in 2 areas : 


- textbuffer ¢ coded form of the inputted program 
{ = sequence program execution ) 

- syaboltable : table which describes the variables 
(паве, type and value or pointer бо 
value} 


Location of the 


is described in following 
system Гай 





HEX LOC SYMBOL — DESCRIPTION DEFAULT 
298-280 — HEAP Pointer to start of heap #2EC 
290-29 HSIZE Size of heap in bytes #100 


29F-288 . TXTBBN Pointer to start af textbufier БЕС 
281-282 STABEN Pointer to start of symboltable БЕП 
243-284 — STBUSE Pointer after end of symboltabl GEF 
285-248 0 BCRBOT Bottom of screen гай #8358 


: з default values after reset are given 

- HEAP, TEXTBUF and SYMBOLTABLE use always successive 
parts af the RAM space -> HEAP + HSIZE = TXTBGN 
value of HSIIE is altered with a CLEAR command 

the area from STBUSE till SCRBOT is used during 
certain basic commands : 

- during SAVEA and LOADA of string arrays (to make a 
clean copy of all the strings in the array! 

- during program EDIT ( the HEAP is used as edithuf- 
ter, before sending characters ta it aake the НЕАР 
as large as possible by goving textbuffer and 
syaboltable up to the screen гай) 

а and STBUSE are changed when entering program 
ines 

SCRRÜT is dependend on the sreenmode 

direct command lines are tempory stored in a ram 

buffer starting at hex 13E 4 used format same as 

normal line, but no linenumber is included. 


' 


SECTION 2 : FORMAT FOR PROGRAM STORAGE 


E is stored as a number (й or gore), 
‘followed by a single # byte 


+------ + 
i byte |! Lesen + Length of rest of lines 
t BERE * ! in bytes се Hex 7F 
: Iu : 
2 bytes | бо) ! 
Жетеу +} ! Binary value of line nuaber 
: E | <= Нех FFFF 
! Po) deert 
| : ) Rest af line (BASIC commands) 
i Ж 
%------ + 
1 і 
! 
! / Next line,etc 
Г 1 
Ж 
4------ * 
i byte í! g ! 
------ + 
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B.Coamands are stored as a single byte code, followed 
by parameters as necessary. 
The byte will have a value >= 81 hex. 


Note : not-prgr =: this command is only allowed as a 
direct command 
not-coad —: this command is not allowed in a 
direct comand line 
па aessage : direct and stored allowed 


NEW 
%------ + 
| ! 81 Hex Not-prgr 
4------ + 
CONT 
4------ 4 
! ! 82 Hex Not-prgr 
%------ 4 
STOP 
%------ + 
! ! 83 Hex Not-coad 
%------ % 
END 
%------ % 
! ! 84 Hex Nat -coad 
%------ % 
RESTORE 
і------ + 
! ! 85 Hex 
%------ + 
RETURN 
------ + 
! ! Ва Hex Not -coad 
%------ % 
RUN 
%------ + 
ot ! 87 Нех Not-prgr 
4------4 
RUN < line nuaber > 
4------ + 
! ! 88 Нех Not-prgr 
%------ 4 . 
z bytes : , Line nuaber 
doesn + 
БОТО < line nuaber > 
! I 89 Hex Not-coad 
%------ + 
| Line nuaber 
fasse t 


| f ВА Нех Not -coad 


! ! Line nusber 
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LORD or + WAIT MEM 
: ! 88 Hex < expression I >, expression I > 
тонот H . . WAIT MEM 
А | 19 Duaay string constant < expression I >,< expression I >,{ expression I > 
I : 99 Dumay string length As WAIT , command byte = 91 Hex 
| | "e WAIT TIME < expression I à 
. LOAD < string expression > {езе + 
HE + ! ! 92 Hex 
! | 8B Нех Жасы + 
жетте + І : i ! 
: | String expression / / Integer expression 
bod ES 
/ / 4------ * 
і | 
Kerg $ LIST 
4------ + 
SAVE < string expression > : ! 73 Hex 
4------ + %------ + 
| ! DC H Nat-orar 
TONES ЕН о-га LIST < line number > 
i Be eg сады 
Í / String expression t 94 Hex 
/ / (gay be dumgy for T cac у | 
! ! SAVE without паве) А Line nusber 
RER Gaz | 
CHECK 
+------ + P = шг паре › 
А ! 85 H Not- L € line number > - 
%------ % E кезі | LIST ¢ line number > - < line number > 
%------ + 
QUT ¢ expression I >, < expression I > ; 95 Hex 
і------ ee ЙЫ 
! ! ВЕ Hex | | Line nuaber or 0498 
En npe 
1 Қ. وا‎ EIU 
/ / Integer expression А Line nuaber ог 6000 
| ] i 
4------ * 
1 і 
А Г Integer expression SOUND < expr I > < expr I > < expr I > € eor I > T 
/ / PE à expr I 
00 + eee А 96 Нех 
POKE < expression I >, ¢ expression I > | | Integer expression 
%------ 
' | BF Hex / / 
"x =. 
| | ыйы / Î Integer expression 
AE e ¿g : 
! | 1 ! 
2 = 
i , Integer expression і / Integer expression 
ЖЕ Ж | 
8 + Fée + 
I Е 
WAIT < expression I >, expression I > р ; . 
WAIT ¢ expression I ме expression I 2,4 expression I > И ј Integer expression 
%------ + + + ; | 
! i ! ! 99 Hex ; 
m шы 1721 | 
і 1 . ` . 
/ bey cd / Integer expression j i Integer expression 
Í i Í / 1 | 
a ! ! ! NE Я 
S y EE 96 Hex + FF = SOUND OFF 
/ i j / Integer expression 
/ і d / 
MM CONES 
------ + +------+ 
МОРЕ do c ! FF or 
د‎ 11 / Integer expression 
/ f 
------ + 
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NOISE < expression I ? < expression I > DOT < expression I 5,“ expression I 2 < expression 1) 
4------ * %------ % 
: ! 97 Hex ! ! 9B Hex 
%------ + 4------ * 
1 ! š ! | 
i Î Integer expression / / Integer expression 
Ж к 
+------ + +------ + 
! ! i l 
/ / Integer expression / ! Integer expression 
Ge NE 
%------ + %------ + 
97 Hex + FF = NOISE OFF ! | 
Í Í Integer expression 
ENVELOPE 7 / / 
< expr Î + € expr I ?, expr I > р ) < expr Í > ! ! 
ar сері» < expr I > expr Do té ES I >, Free + 
< expr 1 3 
sees + DRAW < expr I 3,0 expr I 2 € expr I 3,0 expr 1? 
Е | 98 Hex < expr I > 
%------ % %------ + 
! Í Integer expression ! | 9C Hex 
! ! 4------ + 
tM + ! ! 
: D 99 Number of volume, tine і. i Integer expression 
%------ + | pairs ( 52 В / i 
! ty і ! 1 
i fo} f integer expression Eo ASe % 
/ 7) ! ! 4 
! дена Î і integer expression 
%------ +) f / 
! 2 ! ! 
/ í | Integer expression sees + 
/ i} l | 
Í 5) i / Integer expression 
%------ % РА І 
! ! ! ! 
Î i Integer expression ppc + 
i / аг FF byte ! ! 
| ! { i Integer expression 
нон + / / 
! ! 
CURSOR на 
< expression I ? , 4 expression I > / Í Integer expression 
%------ 
! ! 99 Hex | А 
%------ % %------ + 
! ! 
/ / Integer expression FILL < expr Р ы,і expr I > € expr I 2,6 expr 1) 
| | х expr I > 
E As DRAW , but command byte = 9D 
i d Integer expression 
! ! COLORT 
FES + € expr I > < expr I + < expr I < expr I > 
%------ 
MODE < mode number > ! ! ЗЕ Hex 
%------ + 4------ 4 
! : 38 Нех i ! 
parkida + І i Integer expression 
! | Mode nuaber і / 
+------ + ! ! 
%------ + 
! | 
! / Integer expression 
/ 
AE 
%------ + 
H 
i ѓ Integer expression 
Ж 
%------ + 
! ! 
i і Integer expression 
, і 
ЖЕ 
------ + 


COLORE as COLORT but command code = 9F 
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INPUT < variable > 1,4 variable $} IF € expr L > THEN 









. Commands > Not-coad 
TERRE 8 %------ + 
i : ñB Hex i і да Нех 
Eee i %------ + | 
| Leg + Number af variables i 
%------ +} 1 Е ; 
| | rod Variable ; i 
: E oa 1 1 ТРЕЕ 
деле ije eer | Logical expression 
Í i j ї Luz sa в я a zo! 
desde 3 M. EE 1 Length ` comaands 
: 53 Variable i Крот 
2 ) ' Pdi-- Encaded ee at 
Ce i і) rast of line 
; š А | r3 
INPUT < string constant 334 var > 5,5 var >} — Not-coad — + 
+------ + 
3 Al Нех IF С вкрг L 3 6070 < linenuaber > Not-cond 
%------ H 
| String constant ! i 47 Hex 
pis MES: 
fs i 1 
: | / j ica X asian 
fi Number of variables Жы Logical expression 
/ / й і 
і lonen 
Ve ND p | Line numb 
| pay di Variable i i STE 
Ц 1 і > q 
%------ + | ! EE і 
EM о IF С expr L > THEN € linenumber > Not-cond 
р +------ + 
| А | Variable ! ! ÀB Hex 
— pem 
DATA € text > Not-comd 520% EE EES 
ане + i | E 
! d A2 Hex үг à | 
Ip i ! i : 
| t + Length of text i | Ei QE шада x 
MES | i | 
SE à E | 
Pod) d ¢ text > - j 
bn à Rest of line in ASCII FAR: Eo | 
і 
jo rsen OE A9 Hex 
ME: fous) 
Н — : ! e Е ў nsnm * Length of test | 
Bead І E 
Data statements are held as text only.Not encoded. H | pog i 
е I 
I / f M-* Rest of line in ASCII 
I 1 
à READ < variable > 5,5 variable > } Not-coad HEREDA % I 
%------ % | 
! | AX Hex 
%------ + , А "M : REC 
í ЕРМЕН + Number of variables FOR 2 уағ : = < EE та SEM $ Û STEP < expr > } 
%------ + ! BT PERERA C Ü ` SESE TE 
! ') ! Variable | Р ‚ AA Нех 
t i i %------ % еен» + 
pee 4 | i | | f | Variable 
%------ 4 p + Do + t------ Е 
' i ; t i ! у 
ЖЕ rihu / 1 or 1 — 1 Expression 
+------ + ! ! / i 
1 і 
| LET < variable > = < expression > Ke t AN А 
< variable > = € expression > ; ; ; 
bezeten + 4 / / / Expression 
! Í 84 Hex with LET d 4 | a 
Posee + AS Hex without LET En В i E: 
| Variable і | КУТ, š 
actes + I / %------ + Expression ог FF 
i 1 í i 
/ | ! ! 
! / Expression asss 4 
i І 
%------ % 
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NEXT +------ + 
| ! АВ Hex 
%------ + 
NEXT < vatiable > 
! ! AC Hex 
%------ % 
І : Variable 
1 і 
%------ + 
PRINT { ¢ өг ›[{,/{1› 
! ! AD Hex 
і------ + 
і Vaassen + Number of expressions 
%------ +) ! 
1 3 | Type of expression 
%------ %) ! (0 = fpt, ій = int 
5] ! 28 = str} 
i / ! Expression 
/ i) І 
| !] ! 
+------ +) Í 
! Keert FF if no ur 
+------ +) else 2C or 3B for , | 
42 
.) 
.) 
%------ t] 
| t 
4------ +) 
! г) 
i 1} 
/ 1) 
! 1} Note : PRINT = AD 88 
%------ % 


ON ¢ expr > GOTO < linenuaber > 5,5 linenuaber >} 


Not-cond 

%------ + 
! ! AE Hex 
%------ + 
! ! 
/ і Integer expression 
NE 
%------ % 
! fe * Nuaber of line numbers 
%------ + ! 
| а)! Line nuaber 
! ty 4 
%------ +} 1 
у d 
à Heet 

.) 
%------ +) 
! 1} Line nuaber 
! 1} 
%------ + 


ON < expr I > 60808 < linenumber > {,< linenuaber >} 
Not-cond 
As QN...GÜTO,except command code = AF 


DIM < suhacr ipt variable > 5,4 subscript variable >} 


' ! ВИ Hex 

%------ + 

| 1------ % Nuaber of variables 
%------ + ! 

Гу е 

i i} ! Subscript variable 
/ 7) ! 

i |) ! 

%------ +) ! 

і .) ! 

° ‚Met 

s vd 

%------ +) 

! !) 

/ í) 

/ fj 

! |) 

%------ 4 
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tit < text > Not-coad 
4------ + 
| ! Bi Hex 
%------ + 
! rae * Length of text 
%------ + ! 
| 1) |. 
/ 1 1<--+ Rest of line іп ASCII 
/ 1) 
! 1} 
%------ + 

UT Le + Not-prgr 
! ! B2 Hex 
%------ + 


Шы 4 expr I> [yt EE >] 


i ! | ! B3 Hex 
4------ * %------ + 
! | і : 
/ / or / І Integer expression 
/ / / / 
| ! ! ! 
4------ * %------ 4 
! ! | ! 
def % H / ЕЕ or variable 
/ / 
"d ! 
%------ 4 
CLEAR < ESCH | › 
' ' B4 Hex 
+------ + 
! | 
/ / Integer expression 
Ж. 
4------ * 
INP 
This comaand is not encoded Nat-prgr 
EDIT Not-prgr 
EDIT < line nuaber > Nat-prgr 
EDIT < line number > - < line nuaber > Not-prgr 


As LIST, except command code = Bé / B7 / B8 


SAVEA < array name 2 [ € string expression > 1 


! i B9 Hex 

+------ + 

! | Array name 

1 I 

+------ + 

! ! 

/ / String expression 
! ! ( may be duaay ) 
онаа + 


` 


LOADA < arr Hie У, [< string expression > 1 
As SAVEA except command code = BA 


TALK < PH Í H 


! ! ВВ Hex 
4------ 4 
! ) 
/ / integer expression 
Belk 
%------ + 
STEP RARES + Not-prgr 
! : BC Hex ; 
+------ + 
TRON зекет + 
! ! BD Hex 
%------ % 
TROFF +------ + 
! | ВЕ Hex 
+------ + 


3 SECTION 3 : FORMAT OF SYMBOL TABLE + ARRAY STORAGE 


т-“--------------------...........---------------- 


` Тве syabol table is an integral part of a program, and 
22 holds the names of ail variables. 

In addition it holds the values for non-subscripted 
integer and floating-point variables. 

For subscripted variables and strings the table holds 
only pointers, 

The table is stored as a number of паве and value or 
painter pairs, followed by a single B byte. 














+------ + 
Í !---һ1{5-)--+ 
+------+ +---+ 
| 1} "7 B 
о! P3) +---+ 
+ QN | ! 4! Set if variable subscripted 
i | +---+ 
Я ' ñ ') 5381) Type of varable (8,1,2 
5 : et, FE far fpt,int,sv ) 
Ж MN f) 05 t 
$ / fy 1 аат 
5 ! E 1) +---! 2!) Number of charcters in 
5 у fd 111) nage ( дак 15 ) 
` І t] а!) 
i | A %---% 
оо! Б; 
p t) 
` 4 * 
bo! t---bits-)--+ 
у %------ % %---% 
go iVe- t) Lg ag 
L f / 15-4 !&! Set if variable subscripted 
і [ШЕ /) ! а-а 
$oo! Р 1 153! Type of value ( as above ) 
Po de * E o 
: MEL 
i EIS 
4 Fe „ЧА 
š "77711 1 Number of bytes in value (4) 
š а! or pointer (2) 
? +---+ 
, Name field 


The name is held in ASCII, first character 
at lowest address, 

Value field  : 

Unsubscripted integer/fot variables are 

held as 4 byte values, 

Unsubscripted string variables are held 

as a 2 byte pointer to the string. 


Subscripted variables of any type are 
held as a pointer to other information. 
See next paragraph, і 

This pointer is B until the array has 
been dimensioned. 





аа 


Array storage : 
Array data and information are held in 
the "Heap". 
The forsat is : 





%------% 
i | ' Length of following bytes for 
š у ' these variable 
%------ + 
: tress + Number of subscripts 
------ I 
' i 
%----- / / )i--* 1 byte maxisum values of 
! / / | each subscript 
і ! 
| +------ + 
1 f I 
i f i 
! i ] 
кезе f Í Data storage for array 
ј i 
' , 
i i 
T 
%------ + 


The entries in the data storage are 4 byte values 
C int/fpt 1 ar 2 byte pointers ( strings ). 


E 
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SECTION 4 : FORMAT FOR EXPRESSIONS / VALUES / VARIABLES. 


че ы аге held internally іп operator prefix 
ormat. 

That is to say the operator code precedes its operand 
or operands. 

Each of these operands may be another operator and 
operands and 50 on. 

Since the operator comes first, no syntax analysis or 
operator priorities are needed at run time, 


Eg: A* BEC/D^E 
Is held as +AEB/C*DE 


Individual parts of an expression (iteas) are held 
as follows : 


A. CONSTANTS 


Integer + floating point values are held іп binary 
and preceded by : 


1# if floating point 
14 if integer 


SEN constants are held as a length (1 byte) plus 
the characters in ASCII and preceded Ву: 


18 


Hex constants аге a special case of integer con- 
stants and are preceded by : 


15 


B. VARIABLES 


All variables are held as a 2 byte value which hold 
14 bit offset from the start of the symbol table 
with the 2 most significant bits of the top byte 
set to Bi. 

The offset is the distance fram the first byte of 
the syabol table to the LENGTH BYTE of the VALUE 
FIELD for that variable. 


C.SUBSCRIPTED VARTABLES 


Subscripted variables are held just as are unsub- 
scripted ones , but they are followed by a single 
byte giving the number of subscripts ‚and that nua- 


ber of integer expressions. 
Eg : +------ + 
у Ñ 2 bytes offset in 
: ! symbol table 
%------ % 
! насто i Count of subscript 
%------ 
! 1} ! 
/ 7) ! Integer expression 
Í 1) ! 
! to) ! 
%------ +) ! 
. .) ! 
А 415---% 
. sc 
+------ +) 
! 5) 
/ [id Integer expression 
/ i} 
! 5] 
%------ + 
D. FUNCTIONS 


System functions, such as SIN, VAL etc, are held as 
single byte 26, plus a one byte code for the actual 
function,and the appropriate number of parameter 


expressions, 
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INFO — INFO — INFO — INFO 


IMP INT-STR E.Couplet 





Peut-être avez-vous déja essayé d'introduire une instruction 
telle que 

20 IMP INT dans un programme. Et vous avez obtenu "syntax error". 
On ne peut acceder a cette instruction que directement, comme RUN 
et EDIT. 

Or il est intéressant de puvoir inclure cette fonction dans un 
programme, pour éviter son introduction à chaque utilisation,pour 
pouvoir eviter les signes % et $ et raccourcir le programma. 

(à défaut le BASIC remplace une variable A$(4,2) par la variable 
A$(4.0,2.0) qui n'a pas réellement de sens .) 

La solution est d'utiliser des POKE pour changer les indicateurs: 
ceux-ci sont renseignés dans le manuel DAI page 133 


0275 IMPTAB Impliciet type table 
027F IMPTYP Defaut number type 
mais sans explications.Les voici 


0275 définit la nature par défaut de toutes les variables dont le 
nom commence par A. 

0276 idem pour B 

0277 idem pour C 


028E idem pour Z 


` 


028Ғ est relatif à toutes les variables numériques non liées à 
un nom déterminé, par example les valeurs 4 et 2 relatives à la 
variable A$ précitée. 

Le contenu de ces indicatuers est normalement 0. 

Pour avoir des entiers (integer) 11 faut y mettre 1 


Pour avoir des chaines (strings) if faut y mettre 2 


Ainsi avec : 

110 POKE H277,2 : POKE H278,1 
on obtiendra 

B interpréte comme B! 

C " C$ 

D M D% 


eegend 


OP 4 MEI 1982 IS ІМ UTRECHT EEN DAI-GEBRUIKERSGROEP 
OPGERICHT ALS ONDERDEEL VAN DE HOBBY COMPUTER CLUB. 

DE GEBRUIKERSGROEP ZAL IN ALLE OPENHEID SAMENWERKEN МЕТ 
раїпатіс. 

ER ZULLEN DIT JAAR NOG EEN AANTAL BIJEENKOMSTEN WORDEN 
GEHOUDEN. DE AGENDA 15 ALS VOLGT: 


4 SEPTEMBER a.s. OM 10 UUR IN "DE BRON", VADERRIJNDREEF 
„7 UTRECHT. 

18 SEPTEMBER OM 10 UUR IN DE "ANTHONY FOKKERSCHOOL", 
BINCKHORSTLAAN, DEN HAAG. 

20 SEPTEMBER OM 20 UUR IN GEBOUW ECA , FREDERIKLAAN 
163, EINDHOVEN. 


NADERE INLICHT INGEN ZIJN ТЕ VERKRIJGEN BIJ š 


bl. NIJLAND, BUWITSACEER 21, 1902 AM CASTRICUM NEDERLAND. 
TELEFOON : 02518-50360 
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EDIT BUFFER 


HOW WORKS THE EDIT BUFFER 7 


If you examine the DAI memory тар, vou will not find а certain memory 
area reserved for the EDIT buffer. That is correct; the EDIT buffer 
is created the moment a EDIT command is given. How does it works? 
Lets have a look at the memory organisation first: 


Normally, the RAM assignment is ав follows: 


system RAM Heap textbuffer symboltable free RAM screen memory | 


“hen а EDIT command is given, the textbuffer and the symboltable are 
moved to the end of the free ҚАМ space. Hoth Heap space and free RAM 
space are assigned to the EDIT buffer. The painters for the EDIT 
buffer are now loaded: #OOAZ/AR is start of EDIT buffer. #OOAG/A?7 is 
the end of the available buffer space. 

Now the (part of the) program to be edited is listed into the EDIT 
buffer via a LIST routine. Then the pointer ЖООАД/АФ is set to the end 
of the used space of the EDIT buffer. 

The memory map looks now as follows: 





system RAM EDITbuffer textbuf  symtab Screen RAM 
used ј empty 
OOAZ оода4 DOAL 


Because the output switch #0151 is set to the editbuffer, updates of 
the buffer contents can be made. 


To finish working in the EDITbuffer, BREAK + Space has to be typed in. 
Then the edited area in the textbuffer is deleted: a CLEAR is 
performed just big enough for the listed text in the EDITbuffer. and 
textbuffer and symboltable are moved to just behind this EDIT 

buffer. 

Now the input switch #0135 is set to input from EDITbuffer, and 

the contents of this buffer is read into the textbuffer/symboltable. 


The EDITbuffer can also be used for merging programs: 

CLEAR хххх. Clear sufficient memory space for the program A still in 
the EDITbuffer (in other words: protect the EDITbuffer not to be 
overwritten when loading program В). 

LOAD program A. Send it to the EDITbuffer and type BREAK / BREAK 
when the EDITlisting is ready. Program ñ is now in the EDITbuffer 
as described above. 

LOAD program В. With LOAD, a program still in the textbuffer is 
deleted and replaced by the program read from tape. 

FOKE #135,2: Set the input switch for inputs from the EDI Tbuffer. 
The contents of the EDITbuffer is now read into the textbuffer. 
Both programs must have different linenumbers, otherwise program A 
will overwrite the same linenumbers of program В!! 

Because the maximum CLEAR is #7FFF (about 32E), program À may not 
be longer than 32k! 


Jan Boerrigter 
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GAMES COLLECTION 8 


NEW SOFTWARE IN DAInamic LIBRARY 


1. FRUIT MACHINE J. MOL 


А VERY REALISTIC FRUIT MACHINE „WITH ANIMATIONS IN 
MACHINE LANGUAGE. YOU CAN INSERT COINS, HOLD BARS... . 
YOU CAN PLAY THIS GAME FOR HOURS,WITHOUT GETTING 
BANKRUFT. 





2. CATCH GOMFY II BY J.MOL 

ñ NEW VERSION OF THE GOMFY OF GAMES COLLECTION 4. 
MORE ACTION, MORE COLOUR,..A COUNTER IS RUNNING TO SHOW 
YOUR SCORE. 
3. FOUR IN А ROW — PUISSANCE 4 BY DUFOUR 


А WONDERFUL MACHINE LANGUAGE GAME IN MODE 6 WITH А B 
VERY STRONG STRATEGY.YOU WILL LOVE THE SOUND, THE 


ACTION, THE COLOURS. THIS IS A 3 STARS PROGRAM !!! E E a a a E 


4. MENSCH AERGER DICH NICHT BY М.5166 











THE FAMOUS BOARD GAME ON YOUR PERSONAL COMPUTER. HE 
CAN PLAY ON HIS OWN FOR DEMO OR WITH UF TO 4 PLAYERS IN 
COMPETITION, SUPERB GRAPHICS AND SOUND. 


by E. DUFOUR 1 
e à ч = і 





GAMES COLLECTION 8 : 750 BFR , ON DCR : 900 BER 
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Ж BURGLER Ж: 
dc: Ж ice: Kee: WW zoer 


ur gd 


GAMES COLLECTION 9 


aa 4‏ ا 
a ss Or AERTS DOO H‏ 
моз +O$s+0OOss+ss0s £ +‏ 
ç û £ На‏ 
NEW SOFTWARE ІМ DAInamic LIBRARY H HOD one ЕСЕ‏ 
en ЗЕ = с‏ 
SUPER MASTERMIND BY M.DE LA GRANGE Í Ë H H H H‏ .1 
THE ULTIMATE MASTERMIND ... THAT'S ALL. 5 5B, DOS xs 1004 3 £ : H‏ 
Booo: Os s OOF Obs + DID 3 H‏ 
OUTHOUSE BY М.УЕВНОЕУЄМ OO: CIEICIICICIENI Ce DICIS of‏ .2 


= TRY TO MAKE AS MANY OUTHOUSES AS POSSIBLE BY 
E MOVING AROUND WITH YOUR PADDLE AND PUTTING WALLS. THE 
Ë COMPUTERS DETECTS YOUR ACTIONS AND HOLDS SCORE. 

THE GAME САМ BE PLAYED IN LOW,MEDIUM OR HIGH RESOLUTION. 


5. BURGLER BY J.ROELANTS 

ESCAPE OUT OF THE JAIL, TRY TO ROB AS MANY BANC 
SAFES AS POSSIBLE AND REACH HAWAI .... 
UP ТО FOUR PLAYERS CAN HAVE FUN WITH THIS BEAUTIFUL 
ORIGINAL BOARD GAME. 
4. ATOMIC ATTACK II 


A SPLENDID ATTACK, BEAUTIFUL GRAPHICS AND ACTION 
IN MACHINE LANGUAGE. 


5. MISSILE COMMAND 
DEFEND YOUR CITY AGAINST INVASION OF UFO'S. AS 


THERE WILL BE MORE AND MORE INVADERS, THE GAME BECOMES 
MORE AND MORE DIFFICULT.... 








GAMES COLLECTION 9 : 750 BFR , ON DCR : 900 BFR 
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NEW SOFTWARE ІМ DAInamic LIBRARY 


TOOLEIT 5 


1. JUMBO SCREEN СОРУ ROUTINE 


A JUMBO SCREEN COPY OF ALL GRAPHIC MODES ON YOUR EPSON PRINTER. (MX 80 WITH 
GRAFTRAX,MX Во  II,MX 82,MX 100).ТНЕ ROUTINE IS LOCATED IN MEMORY FROM #5300. 
CALLM#5300 GIVES STANDARD SCREEN COFY,CALLM#5500 GIVES JUMBO COPY. SEE EXAMPLE 


ELSE IN THIS ISSUE (DAITIME). 


2. DAI TEST 


TEST THE HARDWARE FUNCTIONS OF YOUR DAIpc.THE FROGRAM WILL REPORT 
SOMETHING IS WRONG. THERE IS A PROGRAM FOR BASIC ROMS V1.0 AND ROMS V1.1. 


3. DAI AS TERMINAL 


USE YOUR DAI AS TERMINAL,CONNECTED TO A LARGE COMFUTER.SEE ASSEMBLY PROGRAM 


IN THIS ISSUE. 


4. MORSE 


A VERY LARGE UNIVERSAL MORSE FROGRAM.LEARN MORSE WITH THIS BEAUTIFUL 
ROUTINE. I 


ñ SUPERFAST VERSION OF FGT.THERE ARE SOME RESTRICTIONS IN COMPARISON WITH 


FGT, BUT THE GAIN IN SPEED IF IMPRESSIVE! ROUTINES ARE INCLUDED FOR MODES 3 & 
AND SOME DEMO PROGRAMS. 


6. 2-р PACKAGE 


Some notes concerning 3-D-DARSTELLUNGEN: 


The picture-data is stored seperated in points XPZ,YPZ,ZP*€ and 
connexions Pi%,P24 defining which points are to connect. 

The х-,у- and z-values must be integer-numbers in the range +/— 9999. 
Up to 256 points and connexions can be stored. 


The particular commands: 


-L- load a picture; it is possible to integrate new data 
into the existing picture 


-5- is used to save the whole stored data on tape; 
when you want to save the data on a new mini-cassette which 
not yet contains some data, you first have to initialise it. 
S and L use a subroutine which allows the user to control the DCR 


-E- offers several commands to treat the stored data: 
-C- move or stretch points 
-P- remove points/connexions which are defined twice ore more 
(this can arise when C was used) 


F takes very long when much data is to examine, со use it only when 
you have enough time and patience (eat something or take a walk 


in the meantime) 
-Е- the data can be revised in the Edit-mode 
example: to create a pyramid you have to type 
О:0,0,0 1:10,0,0 2:5,10,0 3:5,5,10 
0/1 1/2 2/0 0/3 1/3 2/3 
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The Edit-mode is ended when TAB is pressed. Then the program asks for 
the number of points to read out. After this input you can get back 
into the Edit-buffer by typing E or keep the old data by typing A when. 
you made a mistake. When N is typed, the new data is read out, put in 
new order (if necessary) and printed out. The old data is erased now, 
but you can get back into the buffer by typing E if you discovered an 
error in the printed data. If the data is ok, type О. 


-D- with this command the stored picture can be looked at from any direction by 
any angle. To look up the above defined pyramid from the front upper side, 


you could choose x,y,z = 7,-20,15 horizontal,vertical angle 0,-10 
for a look from the below frontside x,y,z = 7,-20,-15, angles = 0,20 
below backside x,y,z = 7,40,-15, angles = 180,20 
upper backside x,y,z = 7,40,15, angles = 180,-10 
+ upper left side x,y,z = -20,5,15 angles = 90,-10 
below right side x.y,z= 40,5,-20 angles = -90,20 
top side x,y,z = 5,5,30, angles = x,-90 
horizontal angle: О in direction of positive y-axis (straight on) 
70 in direction of positive x-axis (right) 
~180=180 in direction of negative y-axis (backwards) 
—90=270 in direction of negative x-axis (left) 
E and so on... 
! vertical angle: О in horizontal direction (straight on) 
à 








D 
I 


* 
3 
Ж 











90 in direction of positive z-axis (upwards) 
-90 in direction of negative z-axis (downwards) 
and so on... 


+z T 
I 
I 
I +y / 
I / 
І РА 
І f 
I 7 
I / 
І/ 
--------------------------- ا ا‎ ну 
71 +х 
/ I 
/ I 
/ І 
/ І 
-y f І 
/ І 
І 
-z I 


When P is pressed after the picture is ready (tone), it із printed out: 


draws a series of pictures which result from a movement trough the 
xyz-space. The initial and end standpoint and angles can be choosed. 
example: to make a movement towards the pyramid type inital x,y,z = 
1,-80,7, end x,y,z = 4,5,6, all angles = 0, number of pictures = 15, 
erase the pictures after drawing. The movement is very slow and with 
complex pictures too slow to get the effect of moving. But other 
interesting effects can be reached, when the particular pictures are 
nat erased (see enclosed examples). 

The current picture is printed out when P is pressed (control-tone) 
while the computer is drawing. If P is pressed when the last picture 
is ready (tone), it too is printed. 

The printer must be switched on !! 
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-С- сап be used to change foreground/background colors. 


-Р- print the stored data іп a clear, formatted manner 


-М- clear data and start by new 
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BASIC V1.0 - V1.1 


Sedert епіде tijd bestaan er 2 versies van DAI-HASIC. 

Er іс 41.0 en de nieuwere Уш 

in de 41.0 ROMs bleken enkele bugs te zitten die zoveel 

mogelijk en voor zover ze gekend waren, door DAI zijn verbeterd. 

Door wet te experimenteren met de 2 ROM sets heb ik geprobeerd 

de verschillen te localiseren. Sommige inlichtingen heb ik 

rechtstreeks van Біз DAI. 

Ziehier mijn eerste voorlopige bevindingen. 

1) Wi.i reageert anders op een RUN linenr. 
in Vi, werden alle veranderliiken qeCLEARed. 
Dat gebeurt niet meer in V1.1. Dit іс een groot pluspunt 
voor de nieuwe ROM's. Het debuggen van BASIC programmas 
wordt dan eenvoudiger. Het is bvb, mogelijk om tijdens de 
uitvoering het ргог. te onderbreken ‚te listen, evt. zelfs 
de waarde van veranderliiken in directe mode te veranderen 
cm vervoigens het prar. verder te laten lopen. 

2? PIM(2SS5S, 2551 is toegelaten in Vi.l. 


reset wordt sound-channel 2 af gezet. 
gegarandeerd іп V1.9 zodat het mogelijk was dat 
ا‎ EE bvb. reeds geluid werd geproduceerd 


а 
€ 


SAVER en LOADA Werken nu correct ízie vorige nummers van 
DAINAMIC-newsletter). 


5) De bug in de SGM functie is eruit gehaald. 


D 
DW 


Een kleine bug іп de EDIT mode is er ook uitgehaald. 
ете tout had echter geen desastreuse gevolgen en werd maar 


cor 2 gebruikers gemeld! (de cursor verdween even onder 
sommige omstandigheden. 3 


јо 


a 


> > 


Бе цпаїге operator - 7 wordt іп М1.1 correct herkend. 
Het іс dus niet meer nodig om haakjes rond de negatieve 
uitdrukking aan te brengen. 


41 
"w 


маз een bug іп het TALK commando. Meer weet ік er cok 
niet van. 


ко 
2m 
K 


n 


ETC is "debounced'. De toetsenbuffer wordt eerst geleegd. 


10) Een gevolg is dat na het terugkeren uit de EDIT-mode 
het niet meer baat onmiddellijk RUN in te toetsen. 


ii? De 
de 


B functie werkt nu correct onafhankelijk of 


* 


erial channel' (printer) al dan niet aan staat. 


4. 
йо 


12) Er bleek cok sams een verkeerde foutenboodschap gegeven 
te worden (vb. ERROR IN LINE -zander linenr.) 


Dit zijn de mij gekende verschillen tussen V1.0 en V1.1 
ROMs. 

Wie een lijst wenst van de verschillen tussen de ROMs 

біп hexadecimale vorm) kan die op aanvraag tegen copie en 
verzendingskosten verkrijgen bij Jos Schepens. 

Wegens examens zullen die pas begin juli opgestuurd worden. 
Hopelijks zal dit kort overzicht u in staat stellen te 
gorgelen of de nieuwe ROMs de moeite waard zijn. 

De exacte prijs іс mij ongekend, doch ik meen te weten 

dat die redelijk hoog is. 
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DAI AS TERMINAL 


DAI рс als intelligente TERMINAL 
ЖАХЛҖХХЖЖЖАЖХАХЖЖЖХЖХХЖХХЖХХЖХХЖХЖЖЖЖЖЖХХЖХЖЖЖЖЕЖХЖЖ% 


Na in HCC nieuwsbrief no.39 een artikel gelezen te hebben 
over het gebruik van een AFPLE als "verstandige terminal", 
dachten wij dat het voor DAI gebruikers zeker interessant 
zou zijn onze ervaringen op dit gebied op papier te zetten. 
De hierna gegeven listing van een machine-taal programma 
schept de mogelijkheid om via de RS-232 uitgang met een 
mainframe of andere computer te converseren. 

In principe kan van bijna alle faciliteiten,die standaard op 
een "grote computer" aanwezig zijn gebruik worden gemaakt. 
Dit laatste geldt natuurlijk allen voor personen die toe- 
gang tot het systeem hebben 

Het programma werkt zowel op 500 als op 1200 BAUD (zie com- 
ments іп Че source-listing). 

Er is ook zonder probleem met diverse merken acoustische 
modems (300 BAUD , volgens CCITT-norm) gewerkt. 

De RS232 uitgang van de DAI рс kan in dit geval rechtstreeks 
met het modem verbonden worden. 

Aangezien ik een standaard-kabel had waarin pin 1 t/m 8 en 
ріп 20 aan weerszijden van de pluggen doorverbonden waren 
is niet meer geprobeerd welke pinnen vervallen kunnen. 
Vervolgens iets over het programma zelf. 

De eerste versie was geschreven in BASIC en bleek niet te 
werken op 1200 BAUD. 

Het omzetten іп machine-taal (met dank aan P.Minten) loste 
dit probleem op. 

Een klein probleemje Кап er под voorkomen met lijnen welke 
meer dan 60 karakters bevatten (alleen op 1200 BAUD). 

Bij de door ons gebruikte VAX 11/780 computer gaan dan 
enkele karakters verloren 

Het programma werd verder voorzien van enkele speciale Ка- 
rakters welke niet op het DAI key-board voorkomen maar 
essentieel zijn om met een groot systeem te kunnen werken. 
Verder is er de mogelijkheid geschapen om vanuit de edit- 
buffer een DAI programma weg te schrijven in een file,wel- 
ke later eventueel op een andere plek (terminal),ge-list 

of geprint kan worden. 

Het wegschrijven gaat uitstekend, alleen wordt bij BASIC 
het le regelnummer verminkt. 

Pascal еп machinetaal (source) listings geven geen probleem. 
Door tijdgebrek is het terugladen іп de DAI nog niet 
helemaal rond. 

Dit alles opent natuurlijk interessante perspectieven. 
Bijvoorbeeld om thuis, via uw wordprocessor programma, op 
de DAI een brief te tikken еп deze op een heel andere loka- 
tie te laten listen of printen. 

Of het werken in andere talen en het gebruiken van de data 
base management faciliteiten. 


Het koppelen van 2 micro's hebben we nog niet geprobeerd. 
Reacties of c.q verbeteringen aan het programma worden zeer 
op prijs gesteld 

Voor de aardigheid is ook het oorspronkelijke BASIC progra- 
та де-115Е en van comments voorzien. 

Veel succes 


Venray 51-4-1982 G. GRUITERS 
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1 PRINT СНК%(12):РКІМТ TAB(18):"DAI pc ALS TERMINAL" 
5 PRINT TAB(18); "жжке SPRINT 

7 PRINT ТАВ (18); "(SNELHEID 300 BAUD)" 

10 FOKE #FFFS, #84: РОКЕ #151, #1:F%=0:CZ=16 

20 KZ-PEEK GEFFF S) : IF KZ IAND 8-8 THEN GOSUB 100 
30 ZZ=GETG 

40 IF ZZ<>Q THEN GOSUR 200 

69 GOTO 20 

100 ХАСРЕЕК (#FFFO) : IF X42127 THEN ХА= 01-128 

110 IF X%=0 OR XX=13 THEN RETURN 

111 IF X%=10 THEN 250 

114 IF XZ=8 THEN 260 





120 PRINT CHR$XZ) s : RETURN 

200 KX-FEEK (#FFF3) 

201 IF KZ IAND CX-O THEN 200 

202 IF Z4=C% THEN FX-1 

203 IF FZ=1 AND 27564 THEN 724-77-64 

204 IF F%=1 AND ZZ<>CZ AND Z4«64 THEN F4=0 

220 IF ZX-8 THEN Z%=127 

250 POKE #FFF6, ZX 

240 RETURN 

250 PRINT :RETURN 

260 AZ=CURK: BA=CURY: AZ=AZ-1: CURSOR АХ, BZ: RETURN 

300 REM K&KEKCOMMENTS HE ESE 

510 КЕМ 10: BAUDRATE ОР 300 BAUD, МЕТ 1 STOPBIT. 

520 КЕМ OUTPUT ALLEEN NAAR SCREEN. 

550 КЕМ INITIALISATIE CONTROL-TOETS FLAG. 

540 REM 20:1 ЕЕЗ STATUS REGISTER. 

350 КЕМ БІТ 3 (RECIEVE BUFFER LOADED) IS 1 ALS EEN 
360 REM CHARACTER ONTVANGEN IS. 

370 REM 30-40: INGETOETSTE CHARACTERS VERZENDEN MIDDELS 
во КЕМ ОЕ КОМТІМЕ ОР 200. 

590 REM 60:HERHAAL LOOP 20-60. 

400 КЕМ ЖЖЖ INTERPRETEREN ONTVANGEN CHARACTERS ЖЖЖ 
410 REM 100: HAAL ONTVANGEN CHARACTER. 

420 REM VERWIJDER EVENTUELE 7e BIT. 

450 КЕМ 110: DOE NIETS ALS NULL OF CR ONTVANGEN IS. 
440 КЕМ 111: BIJ LINEFEED NAAR 250. 

450 REM 114: BIJ CHAR DEL NAAR 260. 

460 REM *x*VERZENDEN CHARACTERXXX 

470 REM 200: HAAL STATUS ОР. 

480 REM 201:БІТ 4(TRANSMIT BUFFER EMPTY) IS О ALS VORIGE 
490 REM CHAR. NOG NIET HELEMAAL VERSTUURD IS.WACHT! 
500 REM 202:CURSOR-UP WORDT GEBRUIKT ALS CONTROL TOETS; 
510 КЕМ HET CHAR. WAT ER МА WORDT GE-TYPED WORDT ALS 
320 REM CONTROL CHAR. VERSTUURD. 

550 REM 203: MAAK CONTROL CHAR. 

540 REM 204:RESET FLAG BIJ VERZENDEN CONTROL CHAR. 

550 REM 250: VERZEND CHARACTER VIA RS232 

360 REM 240:GA TERUG NAAR DE MAINLOOP. 

370 REM 250: CARIAGE RETURN,LINEFEED EN TERUG МАІМ ООР. 
эво REM 260: ВЕРАРЕ CURSORPOS. ZET CURSOR EEN POS. TERUG. 
590 КЕМ TERUG NAAR MAINLOOP. | 


5 REM EASY BACKGROUND COLOR IN MODE О 
10 COLORT 8 O 5 O 

15 FOR Y=5.0 ТО 10.0 

20 FOR X=0.0 TO 58.0 

30 CURSOR Х,Ү:РОКЕ #76, #FF: PRINT 

40 NEXT 

50 NEXT 


100 FOR X=1.0 TO 4.0:PRINT "ЖҰЖ КУЕ ЖЕЖ - NEXT 
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001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
011 
012 
013 
014 
015 
016 
017 
918 
019 
020 
021 
022 
025 
024 
028 
026 
027 
028 
029 
030 
031 
052 
033 
034 
058 
056 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
648 
049 
050 
051 
052 
OS 
054 
055 
056 
057 
058 
059 
060 
061 
062 
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D.A.I. USED AS А TERMINAL 
ЖЖЖАЖЖЖЖЖЖЖЖКЖЖЖЖЖЖЖЖЖЖЖЖЖ 


Program written by Р. MINTEN 
Issue date wednesday 28/4/1982 


This program is used to connect the D.4.1. 

to а big computer (e.g a Digital Equipment 

Corporations VAX 11/780),via a full-duplex 
modem. 


Some of the keys of the D.A.I.-keyboard have 

got different functions, to allow sending of 

some non-standard characters. 

ТЕ CURSOR LEFT is pressed, then ESC is send ! 

1f B is pressed , then UNDER-SCORE is send 

If ^ (power) is pressed „the AT-sign is send 

ТЕ CURSOR UF is pressed, then the key which 
is pressed next is send as CONTROL-char. 
(e.g. CURSOR UP then C becomes CONTROL -C 

If SHIFT-CURSOR LEFT is pressed, 

the content of the edit-buffer is 

send to the mainframe. 


Froblems still in the program: 

1) If the D.A.I. has to create а secundary 
line, because the received line is longer 
then 60, some characters are lost 
fat the breakpoint). 

This is due to the high speed (1200 baud). 
This problem doesn't exist with 200 baud. 

2) A little waittime is required for moving 
the screen of the D.A.I. This requires 
one fill-character after a carriagereturn/ 
linefeed sequence. Most computers do this 
automaticly , but the УАХ needs the 
command $ SET TERMINAL /CRFILL=1 


If the program is used with the D.ñ.I. 
assembler the command-sequence is as follows: 
uT : 
AI 
^R READ THE ASSEMBLER 
251100 START THE ASSEMBLER 
BUFFERDIM DEC: 12 
ÜR READ THIS SOURCE PROGRAM (DAI-TERMINAL) 
U#P. ASSEMBLE AND LOAD 

(SPACE) 

(SPACE) 
üU. 
26400 
Disconnect for а moment the R5232 connection 
to reset the modem. 
Connect again and press RETURN 
The communication should be operational now 
To return to UTILITY , just press BREAK 


BAUD EQU :FFFS BAUDRATE REGISTER IN TICC 
BDRATE EQU :84 BAUDRATE 500 БАШ) ONE STOF- 
D БІТ, (:88 FOR 1200 BAUD)!!! 
OUTSCR EQU +151 OUTFUT-TO-SCREEN ADRESS 
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063 
054 
065 
066 
067 
068 
069 


-. 070 


074 
072. 


073. 


074 
078 
076 
077 


078 


079 
080 
081 
082 
085 
084 


. 085 
. 086 


087 
088 
089 
090 
091 
092 
095 
094 
095 
096 
097 
098 
099 
100 
101 
102 
105 
104 
105 
106 
107 
108 
109 
110 
111 
112 
115 
114 
115 
116 
117 
118 
119 
120 
121 
122 
125 
124 


0400 
9401 
0402 
0405 
0404 
0405 
0407 
DAOA 
0400 


O40F 
0411 
0414 
0415 
0416 
0419 
041С 
0410 


0420 
0423 
0425 
0428 
0429 
042A 
042B 
042C 


042D 
042E 
0431 
0432 
0453 
0436 
043 


0438 
0428 


043D 
0440 


00 

ES 

DS 

CS 

ES 
3E84 
S2FSFF 
SEO1 


325101 


0608 
ZAFZFF 
AO 
BB 
CC3804 
CDBED6 
в7 
C45104 


ZAC402 
FEFF 
C20F04 
F1 


ES 
257200 
23 
25 
227200 
EI 
C9 


SAFOFF 
FE7F 


FA4204 
D680 


DAI 


STSREG 
INCHAR 
Ж 
D 
CURFOS 
x 
x 
D 


FLAG 
START 


зе جو‎ зе ЗЕ ae OM зе зе 


MAINLP 


ACESP 


* 
ІМТКЕС 


x 


AS TERMINAL 


EGU :zFFF3 STATUS-REGISTER ІМ TICC 

EQU :ЕЕҒО SERIAL INPUTEUFFER IN ТІСС 
CONTAINS LAST CHARACTER 
RECEIVED 

EQU 72 CURSOR POSITION 

ORG : 400 

DATA O FLAG USED FOR CONTROL CHARS. 

PUSH H 

PUSH D SAVE REGISTERS 

PUSH B 

FUSH PSW 

MVI А, ВОКАТЕ DEFINE BAUDRATE 

STA BAUD STORE IT IN TICC 

MVI б,:1 OUTPUT TO SCREEN ONLY 

STA DUTSCR 


MAINLOOF 


======= 


THIS LOOP IS CONTINUQUSLY EXECUTED. 
LOOKS FOR RECEIVED CHARS, AND 
TRANSMITS KEYS FRESSED. 


MVI B,8 MASK FOR "RECEIVE BUFFER 
LDA STSREG LOADED" 

ANA В 

CMP В IF ZERO = CHAR RECEIVED 
CZ INTREC GOSUB TO HANDLE THIS 

CALL  :D6BE LOOK IF KEY PRESSED (GETC) 
ORA A 


СМ? TRANSC KEY PRESSED, GOSUB TO 
TRANSMIT IT 


LDA 20204 FLAG FOR “BREAK PRESSED" 
CPI :ЕЕ #ЕЕ = BREAK PRESSED 

JNZ MAINLF LOOP AGAIN 

РОР PM 

POF В RESTORE REGISTERS 

РАР D 

POP H 

КЕТ RETURN ТО UTILITY 


HANDLE RECEIVED CHARACTERS 


Routine starts at label INTREC 


PUSH H 

LHLD CURFOS POSITION IN VIDEO RAM 
INX H 1 BACKSPACE 15 - 

INX H 2 INCREMENTS 

SHLD CURPOS UURX-1 

POP H 

RET 


LDA ІМСНАК ACCU GETS RECEIVED CHAR 

CPI 127 IF PARITY ВІТ IS SET, 
(ВІТ 7-1), STRIP IT! 

JM CHCENU 

SUI 128 


DAInamic 11 - 213 





PAGE 04 


187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
205 
204 
205 
206 
207 
208 
209 
210 
211 
212 
215 
214 
215 
216 
217 
218 
219 
220 
әгі 
222 
223 
224 


225 


ғаға 
226 
bel 
227 
ту 
228 
a 
229 
== 
> 
"т 
23 
= 
252 
^T 
22.2 
2X 
< tet 
EK 
= 


oF 
aL 


237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 


O4AD 
DABO 
ОДЕ 
0484 


OABS 
ОДЕВ 
O4B9 
ойна 


O4BB 
O4BC 
O4BE 
O4BF 


04C2 
DACA 
O4C6 
DACE 
OA4CR 
OACC 
O4CD 
O4D0 
O4D1 


CABSO4 
7A 
SEF OFF 
C9 


288200 
23 


- 
25 


kk 
a 


7E 
ҒЕОО 
C8 
Ср5104 


1Е05 
14FF 
04609 
SAF SFF 
АО 

B8 
CC3804 
15 


C2L604 


DAI AS TERMINAL 


DUT 


17 EDIT 
MOV A,D 

STA  :FFF& SEND CHAR VIA 8232 
RET RETURN TO MAINLOOP 


SEND EDIT-EUFFER 


To use this feature,read carefully 
how to do it ! 

To transmit ап Assembly-language 
source listing: 


(DNA Assembler already loaded!) 


DEL F. 

(Break) 

(Break) Two Breaks !! 

ШЕР Мо other commands іп between! 
“6400 


Enter the mainframe and put it 

in an Edit or Insert mode, as if 
you are entering from the keyboard 
Ав soon ав you press SHIFT- 
LEFT-ARROW, the content of the 
Edit buffer is transmitted. 


То transmit a Basic — program: 


XCLEAR xxxx (depends on length of program) 


XEDIT 
(Break) 
(Break) Two breaks !!! 
KUT 
“6400 
Rest of procedure is identical 
to that for an Assembly program 
DIT LHLD :ñ2 START EDIT BUFFER 
ІМХ H 
ІМХ H 
ІМХ H FIRST THREE BYTES 
D IS RUBBISH 
NEXTCH MOV A.M GET CHAR FROM MEMORY 
CPI 0 END ОҒ EDIT-EUFFER 
RZ | RETURN IF ZERO 
CALL TRANSC TRANSMIT CHARACTER 
XTHE LINES WITH $ IN 
XTHE COMMENTS HAVE ТО BE 
XDELETED FOR 1200 BAUD 
MVI Е, 3 % 
LOOP MVI D. :FF DELñY CONSTANT 
TEST MVI E, 8 LOOK FOR RECEIVED 
LDA STSREG CHARACTER 
ANA В 
СМР В 
CZ INTREC 
DCR D DECREMENT LOOF 
JNZ TEST 
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249 бара iD DCR E % 

250 0408 C2C404 JNZ LOOP $ 

251 O4D8 23 INX H NEXT CHARACTER 
252 04D9 CABBRO4 JMP NEXTCH 

255 O4DC LENGTH END 


ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖжжЖЖЖЖЖЖ 
‘SYMBOL TABLE Ж 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖжЖЖ 


BACKSP 0420 BAUD FFFS BDRATE 0084 CHCEBS 0448 
CHCENU 0442 CURPOS 0072 EDIT 9485 FLAG 0400 
INCHAR ЕҒҒО INTREC 0438 LENGTH O4DC LOOP 04C4 
MAINLP O40F — NCTRLC 0466 NEXT 0477 МЕХТЕН ОДЕН 
OUT O4BO QUT1 048D DUT2 0497 OUTE 0441 
0074 O4AB OUTSCR 0151 RESFLT O46E SCREEN 044D 
SEROUT 0482 START 0401 STSREG FFF3 TEST 04Сё 
TRANSC 0451 


LAYOUT MATRIX 
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JUMBO SCREEN COPY 


JUMBO-SCREENCOPY EN SCREENCOPY OP МХ-82 


Pieter Nollekensstraat 109 
B-3200 KESSEL-LO (LEUVEN) 


Herman MOEYS 
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MICROBEAM Mi 





Description : 


Software scheme 


MICROBEAM із a scientific program designed for solving struc- 
tural problems involving beams (concrete, metal, wood, ...). 


Its formulation is based оп a mixture of Finite Element Method 
апа Displacement Method, both well known by civil or structural 
Engineers, 


Powerfull matrix compression algorithms allow our DAI computer 
to solve in a few minutes medium-size beams problems that would 
require hours to be solved by hand (when possible !). 


The actual version is a bidimensional solver and has been tested 
with examples and solutions given by other microcomputer programs 
as well as by very large scale mainframes. The differences in the 
results do never exceed 1/100 and are usually in the order of 


1/1000 ! 


The program in this actual version is a real professional tool 
and can be of great interest for civil engineers, building деві- 
gners, architects,... It will be constantly upgraded to reflect 
new desires as well as more performing methods. 


START 


READ DATA & 
PRINT FORMATED 
COMPUTE 
THE LOADS 












ASSEMBLE ELEMENT & 
GENERAL STIFFNESS 







BOUNDARIES 





SOLVE THE SYSTEM 
OF EQUATIONS 










PRINT THE NODAL 
DIS PLACEVENTS & 
THE REACTIONS 















COMPUTE & PRINT 
THE BEAMS END LOADS 
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MICROBEAM 


Input and output 





All data input must be given as 'DATA' lines, starting at line 
60000. This prevents the need of retyping the whole data set in 
case of error, as our DAI editor can be used for corrections. 


The user must provide 


* the nodal coordinates in an X,Y system 

* the beams connectivity and their family reference 
*the beam families data (E, I, , Spec. Weight) 
*the nodal restraints (nodes fixed) 

»the loads applied (see below) 


A plot of the geometry can be obtained to ensure the correctness 
of the coordinates and the connectivity, using the high-resolution 
graphics and а machine-language routine. 


Ав output, the user will receive : 


*the nodal displacements (Ux, Пу, Rotation) 
«the reactions at the fixed nodes (Rx. Ry, Bending) 
«the beams loads (Normal, Bending & Shear) 


Under development : 


„multi load cases problem solution 

«restart with saved stiffness matrix 

more beam loading capabilities 

«post-processor for deformed shave plots and 
beams diagrams (M, N, T) 

Ко 


Important note : 


One should note that the program is running without any регі- 
pherals and thus сап be used with the minimal configuration. 


The resulting resolution times given in the examples are 
obtained without the Math chip. 


А dise version should be started soon. 


Informations : 


For any informations about the "МІСВОВЕАМ! software. please 
feel free to contact 


ir P. H. DAL 
98, Bd E. MACHTENS, #29 
1080 BRUSSEIS 
BELGIUM 
Tel : 02/5228293 
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MICROBEAM 


Library of loads : 


1. Nodal load : two forces and one couple applied to a node. 





2. Concentrated force, normal : applied at distance та" from end 1, 


« 


4. Concentrated couple : applied at distance 'a' from end 1. 





d 
с 


t 
5. Horizontal + Vertical uniform pressure : as wind, snow.... 


d 
t 


6. _Triangular Le loading | eem 3 


Note that combinations of these DE can be realised for any 
beam. 


Many examples have been run to ensure the quality of the soft- 
ware and none gave any problem. 
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MICROBEAM 


Examples : 


1. Clamped beam with vertical force at free end : 


4 nodes 
Æ tooo N 3 beams 
1 beam family 
1 nodal load 


E=21E10 N/m? ;8-0.02 m^ ; I-8.33E-5 шї; Le 5m 


i 2 2 4 


DAI/MICROBEAM solution match the theoretical solution and the 
computed solution from a commercial large-scale soft with a 
difference less than 5/10000. 


Resolution time (from RUN to END OF PROGRAM) : 15 sec ! 


2. Hyperstatic beam assembly : 
16 nodes 

21 beams 

5 beam fam, 

6 nodal loads 

15 beam loads 


Е-3Е6 T/m? 
n=, 20 me 
бас 24 " 
n |=. 28 " 
Da, 272 " 
Dec 16 ч 


Т, 7.00417 mt 
Т, =. 00720 " 
15.011043 “и 
I, =. 01707 " 
T,=. 00213 " 





50 | А А 200 


Fam. 1 : beams 1 to 3 
2 : beams 4 & 5, 8 
3 : beams 6 & 7 
4 : beams 9 & 10 
5 : beams 11 to 21 


The results are of course too long to be given here. Anyway, 
the MICROBEAM solution is 100% compatible with the one given 

by a professional soft tailored for the HP-85 computer (HEWLETT- 
PACKARD) and priced at BF 70000.- ( tax excluded !!!). 


Resolution time (same remark as above) : 4min 15 sec ! 
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DNA ALTERNATIVE PRINTER ROUTINE 


Voici les modifications а aPPorter а DNA (DRINRMIC assembler) pour utiliser 
l'alternate Printer routine de Jan BoerriSter (DRINAMIC No. 19 ~ Pages 93/84) 
via la commande JH. де l'assembleur 


1. Charger l'assembleur 


2. 204100 
Dimensionner les buffers de l’assembleur (valeur au choix? 
Revenir au basic via JB. 


3. Rentrer ie Programme suivant en machine (ensuite RUN) : 


10 REM Ajustement des Pointeurs Pour buffers 

20 FOR X=#2C00 ТО #2FFF 

30 IF PEEKCX220 AND PEEKCX+1 )=#39 THEN POKE X,850 
40 NEXT 


4. Taper : 

*UT 

251259 00-01 

281188 
Dimensionner a nouveau les buffers (valeur au choix) 
Vous aurez a ce moment : 

START HEAP хххх%50 

Revenir au basic via JB. 


5. Rentrer le Programme suivant en machine (ensuite RUN) : 


18 FOR X-4115F TO #1161 

20 READ R:POKE X,R:NEXT 

38 FOR X=#2C76 TO %2С78 

49 READ R:POKE X,R:NEXT 

50 FOR X=#30G0 TO #3049 

68 READ A:POKE X.A: NEXT 

108 DATA #CD, #08, #30 

119 DATA #CD. #36, #39 

129 DATA #Е5, #21, #05, ВРЕ, #36; 898, #21, HDD, #02, 836, 8C3, #21, 813, 430, 822, НОЕ 
138 DATA %02,%Е1,%С9,%Ғ5,ЙЕҒ,%03, HIA, #00, HFD, EG, 808, HCA, #16, 838, HJA, ҒЗ 
148 DATA #FF ‚REG, 410, HCA, #1Е, #30, HFL, #32, #Ғ6, #ҒҒ, HEE, #00. SCH, AED, 8ЗЕ, НОВ 
150 DATA #CD, #13, #30, HCD, #41, KDE, НСО, #41, HDE, AFL HCI, IF, RIP BOF, #17, 817, HCS 


6. Les modifications etant introduites,Prendre une coPie de la nouvelle 
version assembleur : 
TaPer : 
*UT 
251259 00-01 
281100 3050 


REM, : Та valeur en 83005 Peut etre modfiee selon le baud rate de 
de l'imPrimante 
83036 а #3038 Peuvent etre remPlaces Pan #90 si le delai de #3033 | 
a 83835 est suffisant 


JOEL MENIER 

PLACE DE VANMES, 17 
7990 MONS 

BELGIQUE 
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221 * DNA MODIFCATIONS FOR USING 
E æ * THE ALTERNATIVE PRINTER ROUTINE 
E o хо CORINANIC NR. 10 P.83⁄84) 
і 224 ORG :115Е 
205 115Ғ срадза CALL 2009 
006 ORG :2С76 
ве? 2276 CD3830 CALL :3038 
дав ORG 3000 
009 3000 ES PUSH H 
010 3001 2105FF LXI H,:FF@S BAUD RATE BYTE 
š Q11 3994 3688 MVI М,:88 ACCORDING ТО BRUD RATE 
T 912 3006 210002 LXI него 1 
š 013 3009 36C3 WI М,:С3 1 SET DOUTC FOR 
| 014 3208 211330 LXI H,RS232 1 REPLACEMENT 
{ 015 300E 22DE02 SHLD :2DE 1 ROUTINE 
‘À 016 3811 El POP H 
A 017 3012 С9 КЕТ 
Ш 019 3013 Fs RS232 PUSH PSW 
019 3014 EF RST 5 OUTPUT ТО SCREEN 
Ш — 003050 DATA :03 
ШЕ 2212016 3neero — бутку LDA epes 
ШЕ 2222015 cces ANI 1:08 
923 3818 CR1630 JZ  QUTRDY WAIT OUTPUT READY 
024 301E 3RF3FF — BUFEMP LDA :FFF3 
025 3021 £619 ANI +18 
026 3023 СВ1ЕЗ@ JZ  BUFEMP WAIT BUFFER EMPTY 
027 3026 Fi POP PSM 
928 3027 32Ғ6ЕҒ STR :FFF6  OUTPUT CHAR 
029 302A FEQD CPI :@р CAR. RET ? 
932 302C C9 RNZ READY WHEN НОТ 
031 3820 F5 PUSH PSW 
032 302E ЗЕОВ МІ pp 
233 3438 CD1330 CALL RS232 — PRINT LINE FEED 
034 3033 CD41DE CALL :DE41 DELAY 
935 3036 С0410Е CALL :DE41 
936 3039 F1 POP PSW 
037 3038 СЭ RET 
038 3038 IF RAR 1 
939 303C 1F RAR J IF #131=1 THEN #131=3 
042 3030 ЗЕ CMC 1 OR 
041 303E 17 RRL J IF 8131-3 THEN 913151 
042 ЗОЗЕ 17 RAL 1 
043 3040 C9 RET 
044 3041 ` END 


Xooooeroerroercoororooreorolorooroeoroer 
*SYMBOL TRBLEX 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖУЖЖУЖЖЕК 


BUFEMP 301E OUTRDY 3016 RS232 3013 


1? 

JH. 

ТЕР, 

115Ғ CD 
1160 00 30 


2С76 CD 3B 30 


3000 ЕЗ 21 05 ЕЕ 36 88 21 DD 02 36 СЗ 21 13 30 22 DE 
3010 02 E1 C9 ҒЗ EF 03 ЗЯ 00 FD EG 88 CR 16 30 ЗИ F3 

3020 FF Еб 19 CR 1E 30 F1 32 F6 ЕЕ FE 00 CQ F5 ЗЕ op 

3030 CD 13 30 CD 41 DE CD 41 DE Fi C9 IF 1F 3F 17 17 
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INSIDE A LOOP 
WHAT CAN НАРРЕМ INSIDE A LOOP 7 


This article describes the way a Basic loop is executed by the DAI 
Basic, and a particular problem which may occur. 4 


Lets have а look at a very simple loop іп а Basic program: 


10 FOR Ісі ТО 10 
20 PRINT I 
50 МЕХТ 


When line 10 is executed, the following happens: 

а. The variable I іс set to the value 1. 

b. The address of the variable I in the symboltable is stored in the 
pointer LOFVAR (#0104/05). L 

c. Erom th= Basic expression is calculated how many times the loop has 
to be executed. This value is stored in the pointer LCOUNT (#O1OR— 
4O10E) in a 4 byte INT or ЕРТ notation. 


Now line 20 is executed. When the NEXT statement in line 30 is en- 
countered, the value of the loopvariable I is incremented and the 
value of LOUNT is decremented. As long as the latter is not О, line 
20 is executed again. 


Lets now look at the following routine: 


10 FOR Ісі TO 10 ` i 
20 PRINT I 

30 ТЕ I-5 THEN I-I-45 

40 NEXT 


Execution of this routine gives a print out for I: 
1,2,3,4,5,11,12,13,14,15 
What happens ? 


In line 10, the LOPVAR and LCOUNT pointers are set. During execution і 
of the loop, LCOUNT is only decremented by the NEXT statement. : 
So when in line 30 the value of I is changed to I+5, the value of the 
variable I in the symboltable (address in LOPVAR) is updated, but not 

the value of LCOUNT!!! The loop will be executed 10 times, irrespec- 

tive the momentary value of the loopvariable I (the FOK statement is 

only executed once to determine LCOUNT!!). 


How to avoid this particular DAI-Basic problem? There are 3 possiblities: 
a. Avoid the change of a loopvariable during loop execution. 

b. Update LCOUNT by means of РОКЕ routines. 

c. Check the value of the loopvariabe before the NEXT instruction is 

|^ is performed. 


The first solution is undoubtly the best. Rut when it is unavoidable 
to change the value of a loopvariable during execution of a loop, 
solution b or c has to be used. м 

Solution Б is possible but not practical. The value of LCOUNT is 
stored in 4 bytes in INT оғ ЕРТ notation. Too many РЕЕК'5 and FÜKES' в 
are required. : 

Solution C will bez 


35 IF I о-іс GOTO 50 
This seems th= most suitable solution, 


dan Hoerrigter 
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BOOM VAN PYTHAGORAS 





КЕМ ІМРІМТ 

PRINT " 44% DE BOOM VAN PYTHAGORAAS xxx" 

PRINT “Programma van Frits Regtien, leerling van het" 
PRINT “Gymnasium St Willebrord te Deurne (NL), juni 1982" 
10 Z=3000:GOTO 1000:КЕМ 2000 IS STARTADRES 

20 ТЕ 540 THEN 5=4+5 

50 IF 8*3 THEN бш-4%6 

40 DRAW A,B C,D 25:0М 5 GOTO 200, 300, 400 

100 E=D+C-A:AC2=(A+C) / 2: EEB2-E* (E-B) /2 

110 DRAW C,D C.E 23:DRAW C.E A,E 23:DRAW A,E A,B 25 

120 DRAW А,Е АС2,ЕЕВ2 23:DRAW AC2,EEB2 C,E 23 

130 FOKE U,S:POKE U+1,A:POKE U+2,E:POKE U+3, АС2 

140 POKE U+4,EEB2:POKE U+5,C:POKE U+é, E: U=U+7: RETURN 

200 DDB=D+D-B: ACA=A-C+A 

210 DRAW C,D A,DDB 23:DRAW A, DDE ACA,D 23:DRAW ACA,D A,B 23 
220 DRAW ACA,D ACA, DDB 23: DRAW АСА, DDB A, DDB 22 

250 POKE U,S:POKE U+1,ACA:POKE U+2,D:POKE U+3, АСА 

240 POKE U+4,DDB:POKE U+5,A:POKE U+&, DDB: U=U+7: RETURN 
300  E=C-D+B: EAE2=E-(A-E) /2:BD2=(B+D) /2 

210 DRAW C,D E,D 23:DRAW E,D E,B 23:DRAW Е,В A,B 23 

320 DRAW ЕВ EAE2,BD2 23: DRAW EAE2,BD2 E,D 23 

550 РОКЕ U,S:POKE 0%1,Е:РОКЕ U+2, B: FOKE U+3, EAE? 

340 FOKE U+4,BD2:FOKE U+5,E:POKE U+4,D:U=U+7: RETURN 

400 CCA=C+C-A: BBD=B+B-D 

410 DRAW C,D ССА,В 23:DRAW CCA,B C, BBD 23:DRAW C,BBD A,B 23 
420 DRAW ССА, В ССА, BBD 23: DRAW CCA, BBD C,BBD 25 

450 РОКЕ U,S:POKE U*1,C:POKE U+2, BBD: POKE U+3,CCA 

440 POKE U+4,BBD:POKE U+5,CCA:POKE U+6, В: U=U+7: RETURN 
1000 MODE 6A:COLORT & 11 O O:P=Z:U=Z 

1010 S=0:A=130: B=0:C=162:D=0:GOSUB 20:G0TO 2000 

1020 Y-P:P-U:IF F>8000 GOTO 2100 

1030 FOR G=Y TO U-1 STEP 7 


“Soa + 


1040 S=PEEK (6) +1: А=РЕЕК (6+1) : B=PEEK (G+2) : C=PEEK (6+3) : D=PEEK (G+4) : GOSUB 20 


1050 S=PEERK (G)-1:A=C:B=D:C=PEEK (6+5) : D=PEEK (G+6) : GOSUB 20:МЕХТ 
2000 WAIT TIME 100:60T0 1020 
2100 WAIT TIME 500:GOTO 1000 
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VARIABLE CURSOR 


10 КЕМ VARIABLE CURSOR / Ғ.Н. DRUIJFF 1/82 
20 MODE Oz: PRINT CHR$ (12); 

30 PRINT "VARIABLE CURSOR CHOICE. " 

40 PRINT "*======================= : 
30 PRINT :РКІМТ "THIS PROGRAM WILL SHOW THAT YOU CAN FREELY CHOOSE YOUR OWN" . 
60 PRINT "CURSOR-SYMBOL." | 
70 PRINT "THE CURSOR-SYMBOL (THE LITTLE BLINKING LINE) IS SITUATED ON" 
во PRINT "ADDRESS #75 (117 IF YOU PREFER DECIMAL) ІМ MEMORY AND САМ BE" 
90 PRINT "CHANGED IN JUST THE CHARACTER YOU WANT." 

100 PRINT "YOU "РОКЕ 475,xx* WITH xx BEING A NUMBER IN THE RANGE 0-255" 
110 PRINT "AND YOU WILL HAVE А NEW CURSOR BLINKING ON THE SCREEN." 

120 PRINT :PRINT “BUT THERE IS MORE." 

150 PRINT "ON ADDRESS #74 (116 DECIMAL) IS NORMAL 1. IF YOU CHANGE THIS" 
140 PRINT "ІМ O THE CURSOR WILL NOT HAVE THE NORMAL COLORS BUT ALTER-" 
150 PRINT "NATES IN COLOR THREE AND FOUR FROM THE “COLORT? INSTRUCTION." 
160 PRINT "TO SHOW THIS AND TO LET YOU APPRECIATE IT WE ASK YOU TO DO" 
170 PRINT "SOME WORK. PLEASE FOLLOW INSTRUCTIONS." 

180 PRINT ЅРС (10); "1 — TYPE: 'RUNSOO' FOLLOWED BY RETURN." 

190 PRINT SPC(10)3"2 — TYPE: "ЕБІТЗОО- 590" AGAIN RETURN." 

200 PRINT SPC(10)3"3 - PLAY AROUND WITH CURSORKEYS (GREY KEYS)" 


210 PRINT SPC(10);" IN COMBINATION WITH REPT-KEY." 
220 PRINT SPC(10);"4 — RETURN BY PRESSING * BREAK’ TWICE" 
230 PRINT "5 - REPEAT FOR 400,500,...,900 SERIES. "s:BGOTO 999 


300 POKE #74,1:POKE 475,1 
310 COLORT 8 OO O 

320 END | 

400 POKE #74,0:POKE 475,255 
410 COLORT 8 O O 8 

420 END 

500 РОКЕ #74,1:POKE 475,65 
510 COLORT 8 O O O 

520 END 

600 POKE 114,0:POKE 117,255 
610 COLORT 8 O 15 O 

620 END 

700 РОКЕ #74,0:POKE #75, 255 
710 COLORT 8 о 8 15 

720 END 

800 РОКЕ #74,0:POKE 475,255 
810 COLORT 8 O 5 14 

820 END 

900 POKE #74,0:POKE #75, #3F 
910 COLORT 8 O 1 15 

920 END 

999 REM EINDE 


RECTANGLES 
10 REM RECTANGLES / Ғ.Н. DRUIJFF 2/82 
2 MODE 4:COLORG O 14 1 3:GOTO 50 
Зо DRAW X,Y 159-Х,Ү C:DRAW 159-Х,Ү 159-Х,129-Ү С 
40 DRAW 159-Х,129-Ү Х,129-Ү C:DRAW X,129-Y X,Y C:RETURN 
50 FOR І-О ТО 20: X=80-3%1: Y=65-2k1:C=21:GOSUB 30 
50 F=i-F:C=22+F: FOR 0-0 TO 20:X-80-214J:Y-65—3XxJ 
70 GOSUB 50: МЕХТ: МЕХТ 
во FOR Ј=0 ТО 20:X=80-24J:Y=65-3%J:F=1-F:C=22+F:G0SUB 30:NEXT:GOTO 80 
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CODE ITUR ne 


p.v.b.a. A.C.S. 


Meensesteenweg 49 
8800 ROESELARE 
Tel. 051/21 30 89 


Beenhouwersstraat 87 
8000 BRUGGE 
050/33 08 01 


Guibernau Electronica, за. 


Sepulveda 104 
BARCELONA-15 (SPAIN) 
Tel. 243-34-32 


LEGOTRONICS 


Kon. Albert | laan 97 
| 8800 ROESELARE 
` Tel. 051/22 01 03 


MICRO SELECT 


Toutes applications micro-électroniques 
Vente de systèmes ей composants micro-processeur 


3, rue Delcloche 
4020 LIÈGE 
Tel. 041/41 28 10 


Publishing House J. VAN IN 
att. : |. CAMPS 


Educational Software 
primary - secondary schools 


. Grote Markt 39 
2500 LIER 
Tel. 031/80 55 11 


D.I.L.-ELEKTRONIKA, 

MIJNSHERENLAAN 108, 

3081 CH. ROTTERDAM 
Nederland 


TELEFOON: 010 - 854213 


IDS 2000 


Rue de la Bonne Femme 11 
4030 GRIVEGNEE 
Tel. 041/41 32 20 


МЕМОСОМ | 


Mini-digitale cassetterecorder 


Postbus 2924 
3000 CX ROTTERDAM : Nederland 
Tel. 010-148284 


Bennenbergweg 1 
3221 NIEUWRODE (bij AARSCHOT) 
=. Tel. 016/56 87 70 
` DAI- Epsoh F Printers - Memocom digitale cassette 
recorder - Barco kleurenmonitor - Software = 
Microlectuur - Service. 


TEVETRONIC 


Avenue Milcamps 57 
1040 BRUSSEL 
Tel. 02/736 61 24 





